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Vorwort 


»Neue Lernprogramme — Für Commodore 64/128« ist das dritte Buch aus der Reihe 
»Leichter lernen«. Wie die beiden Titel »Lernprogramme für den VC 20« und »Lern- 
programme für den Commodore 64« enthält auch dieses Buch grundlegende Lernpro- 
gramme für Schüler der Sekundarstufe 1. 

Die neu entwickelten Programme wurden nicht nur optisch anspruchsvoller, son- 
dern bieten auch mehr Features und ein größeres Anwendungsspektrum. 

Damit wurden auch die Listings länger. Vom Leser, der die Programme selber in den 
Computer tippen möchte, werden Ausdauer, Konzentration und nicht zuletzt elemen- 
tare BASIC-Kenntnisse verlangt. 

Die Autoren unterstützen den Do-it-yourself-Fan durch zahlreiche Abbildungen und 
detaillierte Programm-Dokumentationen. Die Listings sind aus Gründen der Übersicht 
in Originalgröße gedruckt. 


Ziel dieses Buches ist es, | 

® dem interessierten Schüler und Besitzer eines C 64/128 grundlegende Lernprogram- 
me für den Schulalltag an die Hand zu geben, 

® durch das Studium der Dokumentationen und die Eingabe der Listings die Program- 
mierkenntnisse des Anwenders zu vertiefen, 

® dem Jugendlichen bewußt zu machen, daß man mit Computern nicht nur Spiele 
konsumieren, sondern auch seine geistigen Fähigkeiten erweitern kann. 


(Michael Geipel) 


Einführung 


Keine Angst vor dem Computer 


Professor Konrad Zuse beantwortete einmal in einer Fernsehsendung die Frage, ob er 
sich vorstellen könne, daß viele Menschen Angst vor dem Computer haben, mit einem 
schlichten »Ja, natürlich«. Eine zunächst verblüffende Antwort des Mannes, der in 
Deutschland den programmgesteuerten Computer erfand. Von guter Menschenkennt- 
nis zeugt die Begründung seiner Antwort. Sinngemäß sagte er: Der Mensch hat immer 
Angst vor dem Unbekannten. Wenn er aufgrund fehlender Kenntnisse die Folgen einer 
Sache nicht einschätzen kann, fühlt er sich unsicher. Unsicherheit aber erzeugt Angst. 

Mit diesem neuen Unterrichtsmittel sollte man sıch vertraut machen. Viele betrach- 
ten einen Computer auch heute noch als »Rechner«. Ein moderner Computer kann 
aber viel mehr als nur rechnen. 


Können Computer denken? 


Die volkstümliche Bezeichnung »Elektronengehirn« verführt zum Vergleich mit dem 
menschlichen Gehirn. Doch die technikgläubigen 60er Jahre, in denen ein Fachmann 
für Computerübersetzungen noch selbstbewußt verkündete: »If a human being can do 
it, a suitably programmed computer can do it, too«*, sind lange vorbei. Die Ursachen 
für die Ernüchterung, zumindest unter denen, die sich mit computerunterstütztem Ler- 
nen befaßten, waren die geringe Speicherkapazität und die gewaltigen Kosten der dama- 
ligen EDV-Anlagen. 

Während sich die Sprachforschung des 19. Jahrhunderts noch vornehmlich auf den 
Sprachinhalt konzentrierte, vollzog sich unter dem Einfluß des Computers im 
20. Jahrhundert fast unmerklich der Wandel vom inhaltlichen zum formalen Denken. 
Dies übrigens nicht nur im Bereich der Sprachwissenschaften, sondern nahezu in allen 
Bereichen des modernen Lebens. 

Der wohl bekannteste Sprachforscher auf diesem Gebiet, Noam Chomsky, setzte die 
strukturelle Sprachwissenschaft, als deren Schöpfer Ferdinand de Saussure gilt, erfolg- 
reich fort und erzielte eindrucksvolle Ergebnisse. So ist es heute möglich, rein formal 
durch Austausch von Elementen, gemäß der von ihm gefundenen Strukturregeln, mit 
dem Computer Sätze zu erzeugen. Diese sind grammatikalisch richtig, aber leider in- 
haltlıch nicht immer sinnvoll. Dies ist dıe Barriere, die bis heute nicht überwunden 
werden konnte. Inhaltliches Denken ist dem Menschen vorbehalten. Im formalen 
»Denken« jedoch ist uns der Computer weit überlegen. Diese Überlegenheit sollten wir 
nutzen. 


* ‚Wenn es der Mensch kann, dann kann es auch ein entsprechend programmierter Computer. « 


Einführung 
In den »Niederungen« des Schulalltags 


Begeben wir uns also bescheiden in die »Niederungen« des Schulalltags. Ein nicht gerin- 
ger Teil des Unterrichts, insbesondere in den unteren Klassen, bewegt sich auf der for- 
malen Ebene: 

— Aneignung von Faktenwissen 

— Erweiterung des Wortschatzes 

— Verbesserung der Orthographiekenntnisse 

— Einüben von Grammatikregeln und ihre Anwendung 

— Erweiterung des Wortschatzes 


Auch viele Tests enthalten formalistische Bestandteile: 
— Falsch-Richtig-Entscheidungen 

— Mehrfachauswahl-Antworten 

— Einsetzübungen und Lückentexte 


Reproduktiv »denken«, d.h. Informationen speichern, ordnen oder zufallsgesteuert 
und zeitverschoben, eventuell auch anders strukturiert wiedergeben, kann der Compu- 
ter sicherlich besser als der Schüler, und so kann er ihn bei seiner Lernarbeit unterstüt- 
zen. Wohlgemerkt, der Computer soll dem Schüler helfen, schneller zu lernen. Er soll 
nicht das Lernen ersetzen! 


Das Listing auf dem Weg in den C 64 oder PC 128 


Nach zahlreichen Programmtests wurden die Listings auf einem Epson FX-80 ausge- 
druckt und auf fotomechanischem Wege in diesem Buch in Originalgröße reprodu- 
ziert. Dies bietet optimale Gewähr, daß die Programme, vorausgesetzt, sie werden vom 
Anwender fehlerfrei abgetippt, auch laufen. 

Achten Sie beim Eintippen bitte unbedingt darauf, daß die Programmzeilen auch 
wirklich in allen Einzelheiten mit der Vorlage übereinstimmen. Um diese Arbeit etwas 
zu erleichtern, wurden die Listings mit 40 Zeichen pro Zeile wiedergegeben und stim- 
men somit mit der Darstellung auf dem Bildschirm überein. 

Eine Fehlerfalle sind erfahrungsgemäß die commodore-typischen Steuer- und Grafik- 
zeichen. Aus diesem Grunde wurden sie, soweit sinnvoll, durch Characterstrings 
ersetzt. 

Finden Sie eines der folgenden Zeichen in einem Listing, so geben Sie bitte die in 
Klammern gesetzte Tastenkombination ein. 


Im Kleinschriftmodus RVS einschalten (CTRL + 9 
Im Kleinschriftmodus RVS ausschalten (CTRL + DB) 
Grafikzeichen CHR$(221) (SHIFT+ —) 
Grafikzeichen CHR$(192) (SHIFT+ #) 
oder * = Exponentialpfeil (m 


Einführung 


Testen Sie bereits einzelne Programmabschnitte und speichern Sie diese auf Diskette 
ab. Bevor die Tipp-Lust zum Tipp-Frust wird, sollte man unbedingt die lauffertige Dis- 
kette zu diesem Buch erwerben. 

Einige Programme arbeiten mit Sonderzeichen. Um unerwünschte Nebenwirkungen 
zu vermeiden, sollten Sie den Computer in der Grundversion laufen lassen. Entfernen 
Sie also gegebenenfalls Steckmodule, Programmierhilfen und sonstiges. Weiter hat es 
sich als zweckmäßig erwiesen, das Gerät kurz aus- und wieder einzuschalten, wenn 
man nach einem Sonderzeichenprogramm mit anderen Programmen weiterarbeiten 
möchte. 

Besitzen Sie einen Commodore PC 128, so fügen Sie den Programmen in diesem 
Buch lediglich die Zeile 1 GO 64 hinzu. Der Befehl GO 64 kann natürlich auch im 


Direktmodus eingegeben werden. 


(Michael Geipel) 
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Programm-Telegramm 


© Drei Sachgebiete in einem Programm. 

© Bruchrechnung in allen vier Grundrechenarten. 

© ggT und kgV zur Findung der optimalen Kürzungszahl bzw. des Haupt- 
nenners. 

© Primfaktorenzerlegung zur Berechnung des ggT und kgV in schwierigen Fäl- 
len, zur Primzahlprüfung und Teilerbestimmung. 

© Zufallsgesteuerte Aufgabenstellung mit Lösungsanzeige nach dem 3. Versuch. 


Sinn und Zweck des Programms 


Einsatzmöglichkeiten 


Der »Mathematik-Trainer« ist ein Programm, das für Schüler ab Klasse 5 geeignet ıst. 
Es vereinigt in sich drei thematisch eng zusammengehörende mathematische Sachgebie- 
te: Bruchrechnung, ggT und kgV, Primfaktorenzerlegung. 

Die Bruchrechnung — und das trifft besonders für ihre mannigfaltigen Anwendun- 
gen zu — gilt unter vielen Schülern als unbeliebter, weil wenig überschaubarer mathe- 
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matischer Unterrichtsinhalt. Ein wichtiger Grund ist sicherlich darın zu sehen, daß der 
Übergang von den natürlichen Zahlen zu den Bruchzahlen für die Lernenden in der 
Regel die erste (und vielleicht schwierigste) Zahlbereichserweiterung darstellt. Der Ma- 
thematikunterricht kann mit seinen durchschnittlich vier Wochenstunden in bezug auf 
die Vermittlung einer sicheren Beherrschung der Bruchrechnung nur Begrenztes lei- 
sten. Das hat zur Folge, daß einer Reihe von Jugendlichen fundierte Regelkenntnisse 
ebenso fehlen wie zufriedenstellende Rechenfertigkeit. Mangelnde Motivation führt 
dann dazu, daß aufgetretene Wissenslücken trotz schulischer Bemühungen nicht im- 
mer geschlossen werden können. Zwar wird man in der (beruflichen) Praxis in aller 
Regel nicht mit Brüchen, sondern mit Dezimalzahlen konfrontiert; ein sicherer Um- 
gang mit den letzteren verlangt jedoch Grundkenntnisse über den Umgang mit den er- 
steren. Genau hier nun setzen Sinn und Zweck des vorliegenden Programms ein. 
Dieses geht davon aus, daß dem Übenden das Regelwerk der Verknüpfungen von 
Bruchzahlen im großen und ganzen bekannt ist, es ihm aber an der notwendigen Si- 
cherheit und Gewandtheit im Umgang mit Bruchzahlen mangelt. 

Bei der Konzeption des Programms stellte sich nun die Frage, ob es zur Verwirkli- 
chung des angestrebten Ziels vorteilhafter sei, vom Computer (per RND-Funktion) 
entsprechende Aufgaben erzeugen oder die zur Bearbeitung vorliegenden Aufgaben 
vom Programmbenutzer selbst eingeben zu lassen. Vornehmlich aus zwei Gründen 
wurde mit diesem Programm die zweite Möglichkeit realisiert. Zum einen gibt es schon 
eine Reihe von Programmen, bei denen der Computer die Aufgaben »stellt« und der 
Anwender (ohne Programmänderung) meist nur geringfügigen Einfluß auf die Art der 
zu lösenden Aufgaben hat, zum anderen bietet die hier gewählte Vorgehensweise dem 
Lernenden wahrscheinlich die effizientere Lernhilfe an, weil sie eine auf die konkret 
vorliegende Aufgabe bezogene Hilfestellung leistet. Setzt man beim Übenden ein ge- 
wisses Maß an Selbstdisziplin voraus, kann ein solches Programm etwa bei der Erledi- 
gung von Hausaufgaben oder sonstiger Übungen eine Aufsichtsperson überflüssig 
machen. 

Unter schulischem Blickwinkel betrachtet, muß wohl als wichtigster Programmteil 
der erste angesehen werden; die beiden anderen sind diesem dienend zugeordnet, ob- 
wohl sie ebenfalls in sich selbständige Themen darstellen und mit ihnen auch ohne stän- 
digen Blick auf die Bruchrechnung vielfältige Übungen möglich sind. 


Programmteil »Bruchrechnung« 


Im Programmteil »Bruchrechnung« stehen dem Übenden sämtliche vier Grundrechen- 
arten zur Verfügung. Auf eine weitere, häufig vorkommende Verknüpfung, das Poten- 
zieren von Bruchzahlen, wurde verzichtet, weil eine Potenz — sofern die Hochzahl 
eine natürliche Zahl darstellt — als Produkt mit gleichen Faktoren geschrieben werden 
kann. Dabei ist die Basis (Grundzahl) der mehrfach auftretende Faktor; der Exponent 
gibt dann an, wie oft der gleiche Faktor auftritt. Aus Gründen der Übersichtlichkeit 
erlaubt das Programm immer nur die Verknüpfung zweier Bruchzahlen. Dieses stellt 
jedoch keine Einschränkung dar, weil sich auch komplexe Bruchterme als Folge von 
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einfachen Rechenschritten darstellen lassen, bei denen unter Beachtung entsprechender 
Termumformungsregeln stets genau zwei Bruchzahlen durch eine Bruchzahl (Teiler- 
gebnis) ersetzt werden können. 


Programmteil »ggT und kgV« 


Mit Hilfe von Programmteil »ggT und kgV« kann der Lernende überprüfen, ob er aus 
einer beliebigen Anzahl natürlicher Zahlen deren größten gemeinsamen Teiler (ggT) 
und deren kleinstes gemeinsames Vielfaches (kgV) herausfinden konnte. Die Bestim- 
mung dieser Zahlen ist kein Selbstzweck, sie findet vielmehr ihre Anwendung in zwei 
speziellen Fragestellungen der Bruchrechnung. 

a) Die Frage nach dem ggT zweier natürlicher Zahlen ist die Frage nach der optima- 
len Kürzungszahl, der größten Zahl also, durch die sich eine Bruchzahl kürzen läßt. 
Sollte die Antwort »1« lauten, so ist der entsprechende Bruch eben nicht mehr »echt« 
kürzbar. 

b) Die Frage nach dem kgV zweier oder mehrerer natürlicher Zahlen ist die Frage 
nach dem sogenannten »Hauptnenner«, der kleinsten Zahl also, die ein Vielfaches sämt- 
licher auftretender Nenner darstellt. Sie stellt sich beim Größenvergleich sowie bei der 
Addition und Subtraktion von Bruchzahlen. 


Programmteil »Primfaktorenzerlegung« 


Der Programmteil »Primfaktorenzerlegung« schließlich kann dreifach genutzt werden. 


a) ggT und kgV in schwierigeren Fällen berechnen 

Mit Hilfe der Primfaktorenzerlegung kann man in den Fällen, in denen ggT und kgV 
mehrerer Zahlen nicht auf Anhieb erkennbar sind, (relativ) bequem die beiden gesuch- 
ten Werte finden. Das Verfahren dazu findet sich in entsprechenden Büchern (Schul- 
buch, Mathematik-Lexikon u.a.). 


b) prüfen, ob eine natürliche Zahl Primzahl ist 

Der Übende kann leicht feststellen, ob eine natürliche Zahl überhaupt in ein Produkt 
mit Primzahlen als Faktoren zerlegbar ist; läßt sich nämlich eine solche Zerlegung 
nicht finden, dann handelt es sich um eine Primzahl. 

Anmerkung: 

Jede natürliche Zahl mit genau zwei Teilern heißt Primzahl. 

c) alle Teiler einer natürlichen Zahl bestimmen 

Besteht die Primfaktorenzerlegung einer natürlichen Zahl aus höchstens vier verschie- 
denen Faktoren, so lassen sich durch Kombination aller möglichen (Teil-)Produkte und 
durch Hinzufügen des trivialen Teilers »1« sämtliche Teiler der zerlegten Zahl finden. 


Beispiel: 210 

Kombinationen: 1,.2, 3,5, 7, 2*3, 2%*5, 2#7, 3%5, 3%7, 5x7, 
2*3*5,2*3%*7,2*5*7,3*5%*/, 2*3*5*7/ 

Teiler von 210: 1,2, 3, 5,7, 6, 10, 14, 15, 21, 35, 30, 42, 70, 105, 210 
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Sind mehrere Faktoren gleich, so verringert sich die Anzahl der möglichen Kombina- 
tionen. Bei mehr als vier unterschiedlichen Faktoren wird durch die Vielzahl der zu 
bildenden (Teil-)Produkte das Verfahren unpraktisch, weil unübersichtlich. 


Programmablauf 


Blick in das Menü 


Nach dem Starten des Programms wird dem Benutzer auf dem Bildschirm angezeigt, 
welche mathematischen Sachgebiete er üben kann. Ein blinkender Cursor fordert ihn 
auf, sich durch Eingabe einer Ziffer für »Bruchrechnung« (=1), »ggT und kgV« (=2) 
oder »Primfaktorenzerlegung« (=3) zu entscheiden. 

In allen drei Programmteilen stehen dem Übenden drei Versuche zur Verfügung, um 
die gesuchte(n) Lösung(en) zu bestimmen. Erst nach dem dritten vergeblichen Versuch 
erhält er die korrekten Zahlenwerte auf dem Bildschirm angezeigt. War der Anwender 
im ersten oder zweiten Versuch erfolgreich, so erfährt er Lob vom Computer und kann 
dann mittels fl oder f7 entscheiden, ob er im gleichen Programmteil weiterarbeiten 
oder lieber zum Menü zurückkehren möchte. Alle Eingaben des Benutzers erscheinen 
in weißer Schrift, damit sie sich vom übrigen Text (hellblau auf dunkelblauem Grund) 
farblich bzw. vom Kontrast her deutlich unterscheiden. Die Aufmerksamkeit des 
Übenden soll dadurch besonders auf die eigenen Eingaben gelenkt werden. Diverse 
Eingabeprüfungen sorgen in diesem Zusammenhang dafür, daß keine sinnlosen Werte 
zur Berechnung kommen. 


1 _Bruchrechnung 


Ist der Lernende durch »1« in den Programmteil »Bruchrechnung« gelangt, kann er 
durch Angabe eines Zeichens (»+« für Addition, » — « für Subtraktion, » *« für Multi- 
plikation, »/« für Division) eine der vier Grundrechenarten auswählen. Er muß sodann 
die Zähler und Nenner der beiden (durch die gewünschte Rechenoperation zu ver- 
knüpfenden) Brüche sowie die des Ergebnisses eingeben. Die Cursorposition zeigt ihm 
dabei stets unmißverständlich, welche Eingabe gerade gefordert ist. Das Programm ak- 
zeptiert hier nur maximal neunstellige ganzzahlige Werte mit oder ohne Vorzeichen. 
Sollte die als Lösung eingegebene Bruchzahl vom Wert her richtig, jedoch noch nicht 
gekürzt sein, so wird die vollständig gekürzte Darstellung des Bruches angezeigt und 
die notwendige Kürzungszahl genannt. Bei ganzzahligen Lösungen wird das Ergebnis 
in Bruchform (Nenner=1) und in herkömmlicher Form (nur die ganze Zahl) auf den 
Bildschirm gebracht. Überhaupt wird zur Darstellung der korrekten Lösung immer die 
Form der Gleichung gewählt, wie sie auch in der Schule im Mathematikunterricht in 
der Regel Verwendung findet. 
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2  ggT und kgV 


Hat sich der Lernende durch »2« für »ggT und kgV« entschieden, so wird er aufgefor- 
dert, einzeln nacheinander alle natürlichen Zahlen einzugeben, von denen er den größ- 
ten gemeinsamen Teiler (ggT) sowie das kleinste gemeinsame Vielfache (kgV) 
bestimmen möchte. Mit Ausnahme von »*-« (Pfeil nach links), mit dem die Eingabe 
der Zahlen abgeschlossen wird, nimmt das Programm nur maximal zwölfstellige natür- 
liche Zahlen an. Der Anwender muß nun seine errechneten Werte für ggT und kgV 
eintippen. Er erfährt dann, ob und welche Werte korrekt bestimmt wurden und kann 
dann möglicherweise weitere Versuche unternehmen. Nur der falche Wert wird jeweils 
gelöscht, und es muß ein neuer eingegeben werden; der richtig bestimmte wird durch 
Bestätigung mittels RETURN übernommen. 


3  Primfaktorenzerlegung 


Mit »3« schließlich begibt sich der Lernende in den Programmteil »Primfaktorenzerle- 
gung«. Nach Eingabe der zu zerlegenden natürlichen Zahl (maximal zwöltstellig) stellt 
sich die Aufgabe, die selbst vorgegebene Zahl als Produkt zu formulieren, bei dem 
sämtliche Faktoren Primzahlen sind. Außer Ziffern läßt die Eingabeprüfung nur »*« 
und »Space« (= Leertaste) passieren. Sollte der Benutzer eine Zerlegung finden, die 
zwar die vorgegebene Zahl ergibt, jedoch den Mangel hat, daß nicht alle Faktoren 
Primzahlen darstellen, so wird er durch eine entsprechende Meldung darauf aufmerk- 
sam gemacht und gegebenenfalls zu einem weiteren Versuch aufgefordert. Ergibt die 
eingegebene Zerlegung eine andere Zahl als die zu zerlegende, so wird die entsprechen- 
de Zahl zusammen mit der eingetippten Zerlegung als Gleichung auf dem Bildschirm 
angezeigt. War die anfangs vorgegebene Zahl eine Primzahl, so erfolgt eine entspre- 
chende Meldung; eine Primfaktorenzerlegung ist dann selbstverständlich nicht 
möglıch. 


Programmbeschreibung 


Die vier Programmteile 


Da das Programmlisting sehr viele REM-Anweisungen enthält, sich dadurch gewisser- 
maßen selbst dokumentiert, kann sich die Erläuterung auf einige wenige Punkte be- 
schränken. 
a) Das Programm besteht aus vier Teilen: 

Zellen 10 - 770: Inıtialisierung 

Zeilen 780 — 1800: Bruchrechnung 

Zeilen 1810 — 2530: ggT und kgV 

Zeilen 2540 - 3430: Primfaktorenzerlegung 


Mathematik- Trainer 


Sollten Sie nicht alle drei Programmteile benötigen, so können Sie folgendermaßen 
verfahren: 

Sie geben die Zeilen 10-770 ein und zwar unabhängig davon, welchen Programmteil 
Sie zunächst als ersten benötigen. 

Sıe geben die entsprechenden Zeilen des ausgewählten Programmteils ein. 

Beachten Sie bitte, daß die Zeilen 880, 1900, 2760 auf alle Fälle im Programm enthal- 
ten sein müssen, da sie durch die ON... GOTO...-Anweisung in Zeile 540 mögli- 
cherweise angesprungen werden. Fehlt Ihnen beispielsweise noch der letzte 
Programmteil, so leistet »2760 RUN« Abhilfe. 


»Wahr« oder »falsch«? 


b) An mehreren Stellen im Programm tauchen Befehlsfolgen mit folgender Struktur 
auf: 

”ON - (logischer ausdruck) GOTO zeilennummer x : GOTO zeilennummer y” 
Diese Anweisung gleicht einen Mangel des Commodore 64 Basic V2 aus, nämlich keine 
IF... THEN...ELSE...-Anweisung zu besitzen. Die aufgeführte Anweisungsfolge 
basiert auf folgender Überlegung: 

Ein logischer Ausdruck ist entweder »wahr« oder »falsch«. Der Computer ordnet 
nun dem Wahrheitswert des Ausdrucks zwei Integer-Zahlen zu: 0” für »falsch« und 
>17” für »wahr«. Ist in unserem Fall der logische Ausdruck »wahr«, so ergibt 
” — (logischer ausdruck)” den Wert ” —(— 1)” also ”1””. Das Programm wird dann in 
der Zeile x fortgesetzt. Ansonsten jedoch wird die gesamte ON... GOTO...-An- 
weisung ignoriert und die dahinterliegende Anweisung ausgeführt, das Programm also 
ın der Zeile y fortgesetzt. 


Beispiel: Statt zwei Zeilen zu verwenden 
” 100 ıf fl=1 then 500 ” 
” 110 goto 600 " 
kann man in einer Zeile schreiben 
” 100 on -(fl=1) goto 500 : goto 600 ” 


Experimente? 


c) Wollen Sie mit dem Programm experimentieren, so können Sie unbeschadet seiner 
grundlegenden Funktionen an folgenden Stellen Anderungen vornehmen: 


Zeilen 110/120: Farbgebung 
Zeile 160: Dimensionierung der Felder 
Zeilen 820/1850/2580/2640: erlaubte Stringlängen bei Eingabe 
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Der Euklidische Divisionsalgorithmus 


d) In den Zeilen 1410/1420 und 2140/2150 sowie 2190/2200 tritt der sogenannte »Eu- 
klidische Divisionsalgorithmus« auf. Es handelt sich dabei um ein Verfahren, mit dem 
man auf einfache Weise den ggT zweier natürlicher Zahlen a und b bestimmen kann. 
Hat man diesen gefunden, so ergibt sich das kgV als Quotient aus dem Produkt der 
beiden natürlichen Zahlen und dem errechneten ggT. Der Vorteil dieses Verfahrens 
zeigt sich besonders bei sehr großen Zahlen, bei denen die Primfaktorenzerlegung 
schwierig herzuleiten ist. 

Den mathematischen Hintergrund des Verfahrens, das zuweilen auch »Wechselweg- 
nahme« genannt wird, können Sie aus nachstehendem Flußdiagramm ersehen. 


Flußdiagramm zum euklidischen Divisionsalgorithmus 


Eingabe von a und b 
mit a größer b 
1) Setzeex =a 
2) Setze y = b 


Bestimme den Rest r 
bei Division x: y 


1) Setze x = y 
2) Setzey = r 


y ist der gesuchte 
ggT (a;b) 


z = (a*b):y 
z ist das gesuchte 
KgV (a;b) 


Beispiel: gesucht ggT/kgV von 128 und 48 


128 = 48 * 2 + 32 
48 = 32 *1 + 16 
32=16*2+ O0 


Ergebnis : 16 = ggT(128;48) 


128*48 = 6144 
6144 = 16 * 384 


Ergebnis : 384 = kgV(128;48) 
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Liste der wichtigsten Variablen 


1 

a$(i) 
z1$,23$ 
z2$,5$ 
z4$ 

v$ 

b1$ 
b2$ 
b3$ 

z$ 


ci 


Laufvarıable 

situationsbezogene Antworten 

obere/untere Begrenzung des Menüs 

linke/rechte Begrenzung des Menüs 

Leerstring zum Löschen von Teilen des Bildschirms 
Bruchstrich (Aufgabenstellung) 

Bruchstrich (erster Bruch) 

Bruchstrich (zweiter Bruch) 

Bruchstrich (Ergebnis) 

Eingabe 

Cursorzeile 

Cursorspalte 

Länge des zu löschenden Strings auf dem Bildschirm 
Anzahl der zu löschenden Zeilen 

Flagge (gelöscht = 0, gesetzt = 1) 

Strings zur Überprüfung der Eingabe 

Anzahl der Fehler 

Rechenzeichen 

Art des Verknüpfungsergebnisses 

Name der Verknüpfung 

Zähler/Nenner des ersten Bruches 

Zähler/Nenner des zweiten Bruches 
Zähler/Nenner der vom Benutzer ermittelten Ergebnisbruchzahl 
Zähler/Nenner der ungekürzten Ergebnisbruchzahl 
Zähler/Nenner der gekürzten Ergebnisbruchzahl 
Kürzungszahl 

natürliche Zahlen 

ggT, kgV der Zahlen 

vom Benutzer ermittelte Werte für ggT und kgV 
zu zerlegende natürliche Zahl 

vom Benutzer ermittelte Primfaktorenzerlegung 
Primfaktoren der korrekten Zerlegung 


eingegebene Faktoren 
Produkt der Faktoren 


(Manfred Raiß) 
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1A rem "!RRRRENRERRERTITRIR KT KT IN KR RN ER RN" 


15 rem "* g 
28 rem "* Mathematik — Trainer *' 
25 rem '% * 
58 rem '"'* 1. Bruchrechnung *" 
sa rem "* 2. ’ggT’ und 'kgV’ *" 
48 rem "* 53. Primfaktorenzerlegung #" 
45 rem '* y 


SO rem "RER TH NT TH RR NH RE RER" 


65 rem "Copyright 1985 by " 
78 rem "moderne verlags gesellschaft " 


89 rem "Autor: Manfred Raiss a 


c0 
[a 


1BQ rem ###x#%%* "Initialisierung" ##*#%% 

* 

118 pokeS32808,6:poke53281,6: rem "Rahmen 

farbe „ Bildschirmfarbe" 

128 ef=1:cf=13:bf=14 rem "Cursorfarbe 
bei Eingabe/Text/Programmfortsetzung" 

130 poke53272,235:poked4ö4,cf: rem "Gross/ 

klein-Modus „ Cursorfarbe" 

148 cz=214:cs=-211: rem "Zeropageadressen 

fuer Cursor (Zeile/5palte)" 

158 mp=587352: rem "Cursor an die in 214/ 

211 hinterlegte Bildschirmposition" 

168 dima$(18) ,pF(4B) „tF (ID) „pi3D) „a3, 

r (50) 

172 rem chr#(145): "Cursor nach oben" 

188 rem chr#(18) : "Revers-Modus ein” 

190 rem chr#(146): "Revers-Modus aus" 

200 rem chr$#(147): "Bildschirm loeschen" 

218 fori=BtolB:readafti):nexti 

228 data" FProgrammfortsetzung : beliebig 

e Taste " 


238 data"Ergebnis stimmt '!' Mach weiter s 
8: 
248 data" leider nicht korrekt '!"„"Versu 


ch es ein zweitesmal !'" 

58 data"lnternimm noch einen dritten Ve 
rsuch !" 

268 data"Ergebnis zutreffend, aber noch 
kuerzen !'" 

278 data"Notwendige Kuerzungszahl ist" 
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288 data'"Gestellte Aufgabe nicht bewaelt 

igt !" 

2978 data"qut '! qggqgT und kqgV korrekt ermit 

telt '!" 

sß8 data"ggT und kqV nicht zutreffend be 

stimmt !" 

S1i@® data"ggT gefunden, kgV leider falsch 
ns 

328 data"kqV gefunden, ggT leider falsch 
u 

538 data"ist eine Primzahl, daher",„"kein 

e Frimfaktorenzerlegung moeglich !" 

s42 data"Primfaktorenzerlegung gelungen 
ı0 

Sso@ data"Faktorenzerlegung ergibt andere 
Zahl !" 

368 data"Zerlegung ergibt zwar die vorge 

gebene" 

57/R data"Zahl, aber nicht alle Faktoren 

stellen" 

s8B data"wie gefordert Frimzahlen dar '" 

>98 rem #** "benoetigte Strings erzeugen" 

400 fori=1t038:20#=-zB++chr# (1972) enexti:s 
=chr# (221):v$t=leftttzQd#,11) 

A410 zi$=chr$(176) +zBt+chr$ (174): 235#=chr#$ 
(173) +zQOFt+chr# (189) 

428 fori=1t0o4B:24+=z4t+chr#$( 32) enexti:zz 

$=5t+tleft+t(z4t,538)+s# 

432 rem ##ArR%8%% "Menue anzeigen" #HAHRR% 


440 printchr$(147),zi1$, z2F,s$3, " Mit di 
esem Frogramm kannst Du 53 "ı5$, 22% 
450 printst#;z " thematisch eng zusammeng 
ehoerende "ısF#F3;z7f$; 
A6Q printssz" mathematische Sachgebiet 
e ueben. "s$,ız22$ız22$, 22$#; 
470 prints#;z " Bruchrechnung 
"chr$(18)'" 1 "chr$(146)," "58; 
480 printz2t,s#y" "g9gT’ und 'kKgV' 
"chr£(18)" zZ "chr#(14633," e- 
470 prints#; z2#;sF; " Frimfaktorenzerle 
gung "chr#$(189)"” 3 "chr#(146); 
SsaQ print" ns$tız2$ız 33, z1l#, z22#,5$," 
Was moechtest Du ueben ? ". 
Ss1iQ printst, zZt,s#z " Gib die entsprech 


ende Zahl ein ! "c$ı z2tı zdf, 
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320 c1=19:c02=34:gosubdßd: a=val (left#(rig 
htt(z#,6),1)) 

3308 ifa<>landa“ >Zandaf >Sthenc3=5:gosubd4 
2: got 0528 

34B onagoto888,1708,2768 


sog : 
sad rem *##* "Subroutinen, die" *r% 
»7/0 rem *** "von allen Proagramm-" *%% 


388 rem **#* "teilen benutzt werden" ##% 

398 : 

&8B rem *#*#* "Cursorpositionierung" #%% 

siQ rem *###* "und Stringeingabe" KRRR 
2B z$="":pokecz ,cl:pokecs,c2:sysmp:poke 

646, ef:openi,B:input#1,zf:closel 

638 pokes4öd,ctf:return 

4a rem KrARR* "String loeschen" ####%%* 

658 pokecz ,„cil:pokecs,c2:sysmp:printleft*# 
(z4$,c5)sıreturn 

&60d rem ##+#%#r+ "Zeilen loeschen" ####%% 

678 pokecz „ci:pokecs ,c2:sysmp: forx=1too: 

printz4F; :nextx:return 

s8Q rem **** "Programmfortsetzung" ###%% 

6978 pokecz ‚24: pokecs „Bd: sysmp:poked4öd,bf: 

printchr# (19) aF+(Bdchr# (146); 

782 getast:on-(a$="")goto7B@:poked4d,cft:p 

rintchr# (145) 24%; ıreturn 

71B rem ** "Auswahl mittels F-Tasten" #* 

728 pokecz ‚24:pokecs ,@:sysmp:poke646 ,bf 

728 printchr#$(18)" Gleicher Prg-teil : F 
1 Menue : F 7 "chr$t(146) ; :poked4d,cf 

748 getast:ifas=""or (a$<%>chr$ (135) anda#S> 

chr#(136))then?74B 

758 ifat=chr# (156) thenfl=l:return 

7680 return 


77B 3: 
/8B rem ##3*%%* "Subroutine fuer" ##%%% 
798 rem ###** "Programmteil 1" KHRRR 
BOR : 


BIQ rem #r#r%r "Eingabepruefung" FARFRR% 
828 iflentp$) -F7thenrun 

83B iflen(p#)=dthenfl=1:return 

848 w=len (p$) : for j=1tow:d#=mid$(tpF#,j,1) 
BSR ifasc (d$) <4Borasc td$) >57thenifasc (d$ 
)<>43andasc (d$) <>45then870 

858 nextj:return 
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878 j=w+tli:nextj:fl=l:return 

S8BE8 rem ###*%%* "Hauptprogramm" FAHHR%* 
878 rem ###*%** "Bruchrechnung" ##%##%%* 
988 printchr#+(147)"Mit diesem Frogrammte 
il kannst Du":sprint 


F18 print" Addition ("chr$ 
18)" + "chr$(144)")"sprint 
928 print" Subtraktion ("chr$ 
18)" — "chr$(146)")":print 
3938 print" Multiplikation ("chr#$ 
19)" * "chr$(146)")"s:print 
74B print” Division ("chr$ 


18)" / "chr$(146)")"sprint 

958 print"von Bruchzahlen ueben. Solltes 

t Du die":print 

96B print"Aufgabe nach drei Versuchen ni 

cht ge-":print 

77B print"loest haben, so erhaeltst Du d 

as Ergeb-":print 

988 print"nis vollstaendig gekuerzt ausg 

edruckt.":print 

99B print"Bei ganzzahligen Loesungen mus 

st Du im":print 

10808 print"im Nenner des Rruches eine ’1l 
“ eingeben," 

1018 pokecz „ZZ:pokecs „dB: sysmp:print"Ents 

prechendes Rechenzeichen waehlen !" 

1828 c1=-24:c2=B: gosubdßl: f=D 

1838 ifz#+<>"+"andz#$T >"-"andz$<i >"*"andz$< 
>"/"thenc3=39:gosubds4ß: gotolB28 

1248 ifz$="+"thenm$="}":n$="Summe" :0$="A 

ddition »" 

108509 ifz$="-"thenmt="="sn$="Differenz":o 

$z=-"Subtraktion :" 

10450 ifzt="*"thenmt="*":n$="Frodukt":0#> 
"Multiplikation »" 

1878 ifz$="/"thenmf=":":n#="QBuotient":of 

="Division :" 

1088 rem *#r##%* "Aufgabe eingeben" ##x#%%* 
12390 uF=z$:printchr#$(147)'"Gib jetzt nach 

einander die Zaehler":print 

1128 print"und Nenner der beiden Brueche 
ein !":print:print:print 

1118 printvs,;" "sm$;" "sv" = "v8 

1128 f1=B8:c1=9:c2=2: gosubdBßB: pt=z $: gosub 
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8iQd:iffl=1thenc3=1ß: gosub6s4Bd: goatoll12d 


1158 
1140 


zi=val(z$) 
f1=9:c1=-7:c2=2:gosubdsßd: p*=z $: gosub 


81B:iffl=-1ithenc3=1d: gosubd4d: gotol1140 


1150 


ni=val (z$) sifn1=BthencI=1d:gosubds40d 


:goto1148 


1168 


b8i@: 


1178 


f1=B:c1=>-5:c2=16:gosubößBd: p$=z $: gosu 
iffl=1thenc3=1d:gosubds4Q: gotol1däR 
z2=val (z$) :ifz2=BanduF="/"thencs=1® 


: gosubs4AB: gotolläR 


11880 


f1=8:c1=7:c02=16:g0suböBQßQ: p*=z $: gosu 


b8i@: iffl=1thenc3=1Q: gosubd4AR: gatol118Q 


1198 n2=val (z$) :ifn2=QOthenc3=1B: gosubd4R 
:goto118® 

1288 ifuf="+"then1248 

1218 ifuf="-"then1298 

1228 ifu$="*"then1340 

12358 ifut="/"then136d 

1240 rem ara "Addition" KANNE ER* 
1258 if (z1=-Bandz 2<>Q)thenz=z2:n=n2:gotol 
380 

1268 iftz1<>Bandz2=B)thenz=zi:n=nl:gotol 
>80 

127B if (z1=-Bandz2=B)then146B 

1288 z=z1*nZ2+ni#z2:n=nl#tn2:on- (z=d) gotol 
460: goto1580 

1290 rem rare "Subtraktion" KHRRRHR* 
1500 if (z1=-Bandz 2< >B) thenz=-z2:n=n2:goto 
1580 

1518 if (z1< >Bandz2=-B)thenz=zi:n=nil:gotol 
>80 

1528 if (z1=Bandz2=B)theni1458 

15350 z=z1*n2-n1*z2:n=ni+#n2:on- (z=B) gotol 
46Q:goato1 3580 

1540 rem ##%*#* "Multiplikation" ####%%% 
1350 on-(z1=-BorzZ2=ß)gotuold4äöß:z=ezltzZ:nen 
1#n2:goto138®B 

1340 rem KH "Division" RKRRRRRERRR 
1378 on-(zi1=Bd) gotol468: z=z1*#n2:n=ni1#z2Z 
1580 rem * "Euklidischer Algorithmus" #% 
1390 »=abs(tz):y=abstn) :ifx>=ythena=x:b>y 
:gotol41B 

1409 a=syıb=x 

1418 ifb=-Bthen1435® 

1420 r=a-b#int (a/b) :a=b:b=r:gotol41® 
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1458 k=-z/a:l=n/a:ifk<ißandl<dthenk=abs(k) 

«= l=abs (1l)2goto1478 

1448 ifk>Bandl<@dthenk=-k:l=— 

14508 goto1478 

14688 k=B:1=1 

1472 rem ###** "Ergebnis eingeben” ###*%* 

1488 pokecz ,1ßd:pokecs ,Q: sysmp 

149780 printchr#(18)" Gib nun dein errechn 

etes Ergebnis ein !" 

1508 f1l=-9:c1=5:c2=30: gosubdRßß: pF=z $: gosu 

bsiBß:iffl=1thenc3=1ßd: gosubds4Q: goto15R0 

1518 al=valtzf) 

1528 f1=-B:c1=-7:c02=350: gosubdsßd: pFt=z F: gosu 

b81B:iffl=ithenc3=1d:gosubd4d: gotol152 

13350 azZ=val(zFf) :ifaZ=-dthenc3s=1d: gosubäs4Q 

: 9goto1520 E 

1548 on-(al=abs (k)landaZ=abs (1)andal/aZ=k 

/Dgotol59rB: ifal/a2=k/1then1638 

1558 rem *#*# "Ergebnis war falsch" ##%* 

1560 f=f+tli:pokecz ,13:pokecs ,Q:sysmp:prin 

tntsaF(Z2).iff>Ztheni618 

1578 pokecz ,15:pokecs ,Qd: sysmp:printafs(2+ 

f):gosub&s8B8 

1530 ci 0. el c-5=10: gosubds4Bß: c1=7:gosu 

b540:c1=15 =0:0=-3:gosubdsdd: gotol14 78 

1570 rem ###% * "Ergebnis war richtig" *#*% 

1600 pokecz ,1S3:pokecs ,Q: sysmp:printa#(1) 

» got 01770 

16810 rem *#*#** "drei Fehlversuche" ##*%#* 

1528 pokecz ,15:pokecs ,„Q: sysmp:printa#(7) 

: gotold6 

16358 rem ** "Ergebnis nicht gekuerzt" #* 

16540 pokecz ,12:pokecs,Q: sysmp:printaf# (5) 

15858 pokecz ,14:pokecs „Bd: sysmp:printa#® (6) 

sabsta2/]l) 

15860 rem "Bruchstrichlaengen bestimmen” 

1678 bz=len (str#(zi)):bn=len(str#$tni)):hb 

1=-bn:ifbz>bnthenbi=bz 

15808 biF=midt(tzit,2,bi+ri) 

ee bz= len (str$(z2)): bn=len (str#(nZ)):b 
z=bn:ifbz >bnthenb2=bz 

1700 b2$=mid$(z1$,2,b2+1) 

17108 bz=len(str#(k)): bn=len (str$(1)): b3= 

bn:ifbz >bnthenb3=bz 

17280 bS$=mid$(z1#,2,b3+1) 


25 


Mathematik-Trainer 


1758 rem *"Richtiges Ergebnis drucken" * 
17408 pokecz ,17:pokecs ,‚B:sysmp:printchr®( 

18)" Richtiges Ergebnis der "}of$ 

1758 pokecz ,19:pokecs „QB:sysmp:printzi;sta 

b(bi+r4)z2;tab(bi+rb2+B9)k 

17680 pokecz „ZB: pokecs ,Qd:sysmp:printbil#3; " 
"mE; [) ":b2$:; IL) a "="n ” u bS#$; 

1778 ifl=1thenprint" = ";k 

1788 pokecz „Zi:pokecs „B:sysmp:printni;ta 

b(bi+4)n2;tab(bi+b2+8)1 

179B fF1=B:gosub71B: on- (fl=1)goto4dIB: goto 

888 


18008 : 
1818 rem ###*#+ "Subroutine fuer" ##%%% 
1820 rem *#*#** "Programmteil 2" RKERER 
1850 : 


18408 rem ###r#* "Eingabepruefung” ####%% 
18580 iflentp$) >12thenrun 

18658 iflentp*)=Bthenfl=l:return 

1878 w=len (p$) : for jeltow:d#=mid#(p#,j,1) 
1888 ifasc (d$) <4Borasc (d$) >57theni fasc (d 
$)<>95thenj=w+ti:nextj:fl=l1:return 

1898 nextj:return 

1700 rem *##%%%* "Hauptprogramm" #EHH%% 
19718 rem KH "ggT und kaV" KERERK 
1928 printchr#(147)"Mit diesem Programmt 
eil kannst Du in":sprint 

17308 print"35 Versuchen feststellen, ob D 
u den":print 

1948 print"groessten gemeinsamen Teiler 
"schr&t189)""ggT ’"chr#(146);" und":print 
19580 print"das kleinste gemeinsame Vielf 
ache "schr#(18)" '"kgV’"chr$(146) print 
1960 print"einer beliebigen Anzahl natue 
rlicher":print | 

1978 print"Zahlen korrekt bestimmt hast. 
"sprint 

19880 print"”Gib jetzt die Zahlen einzeln 
nachein-":print 

19798 print”ander ein. Nach der letzten E 
ingabe":print 

2880 print"muss mit '""schr#(95);,"' abges 
chlossen werden." 

2B1B8 rem ** "Eingabe der Zahlenwerte" #* 
2020 n=1:m=1l:g=1:k=1:f=9: c3=208 
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f1=8:c1=17+m:c2=16: gosub4ßß: p$=z$:9 


osub184B:iffl=1thengosub&4B: goto2B350 


28048 ifz*=chr$(95) andn>Zthenn=n-1:goto28 
e0 

2858 pt{n)=val(z$):ifpitn) =Bthengosubd4ß:g 
oto2B58 

2B&B n=n+1:m=n:ifn>7thenci=24:c2=15:c3=1l 
S:g0osub&64Q@:m=7 

2078 goto2838 

2888 printchr#(147)"Folgende Zahlen hast 


Du eingegeben :" 


2070 
2100 
2118 
2128 
2158 
2140 
2 
2158 
2160 
2170 
21880 
2190 
218 
2280 
221080 
2220 
22530 
2240 


pokecz „Z:pokecs ,B:sysmp 
fori=iton:printp(i);:nexti 
fori=iton:gqti)=p(i):nexti 
fori=1to(n-1):a=p(i):b=p(i+!l) 

rem *#%%* "Bestimmung des ggT" ##%% 
r=a-b#int (a/b) sifr=QOtheng=b:goto216 


a=b:b=r:goto214B 
p(i+t1l)=qg:c=qti):d=q (it!) 

rem **** "Bestimmung des kgqgV" #r#%% 
z=Cc#d 
r=c-d#int (c/d) sifr=Bthenk=z /d:goto2 


c=d: der :goto2178 

qtitl)=k 

nexti 

rem *#* "Eingabe von ggT und kgqV" #** 
pokecz ,„4:pokecs ,‚@:sysmp:printchr# (1 


8)" Gib nun ein, was Du als 'gqggT’ und"; 


2250 print" "sprintchr#t(18)" 'kgV’' di 
eser Zahlen errechnet hast ! " 

2268 f1=Q:pokecz „8:pokecs,1Q:sysmp:print 
"ggT = "s:c1=8:c2=1löd:gosub&sdld 

2270 p$=z$:gosub184B:iff1=1ithenc5=2Q:gos 
ubs40: goto2248 

2288 gp=val (z#) 

2298 f1l=B:pokecz ,1d:pokecs,19:sysmp:prin 
t"kgV = "s:c1=190:c2=1lö:gosub4Qd 

2380 pF=z$:gosub184B:iffl=1thenc35=2B:gos 
ubs4Q: 9g0oto22978 

2312 kp=val (z#) 

2328 ifgp=gandkp=kthenpokecz ‚,13:pokecs,@ 


:sysmp:printa#s(8) :goto2528 


25330 


ifgp=gandkp<>kthenpokecz „15: pokecs, 
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B:sysmp:printas (190) :goto2482 

23548 ifgp< >gandkp=kthenpokecz ,13:pokecs, 
Q:sysmp:printafti11):goto2440 

2550 rem ###* "ggT und kgV falsch" ###%% 
23568 pokecz ,13:pokecs,@:sysmp:printa#(9) 
2378 pokecz „15: pokecs ,‚B:sysmp: f=f+l:iff> 
2then2488 

23880 printa$s(2+f) gosubs808:c1=8:c2=15:c93 
=15:gosubs4Q 

253978 cti=1B:c3=-15:gosub6s48:c1=135:c2=B:0=3 
: gosubddsd: goto2240 

248088 rem ###ar* "nur kqV falsch" KuartH%* 
2418 pokecz ‚15: pokecs ,‚@:sysmp: f=f+t1l:iff> 
2then2488 

2428 printastt2+f) gosubs8Q:c1=-18:c2=1S:c 
s=15:gosubd649 

2458 c1=13:c02=B: 0=3: gosubdssß: goto2248 
2440 rem ####*%* "nur ggT falsch" #x#%%*%* 
2458 pokecz „15: pokecs ,‚B:sysmp: f=f+1l:iff> 
Zthen2488 

2468 printast2+f) .gosubös8B8:c1=8:c2=15:c3 
=15:gosub&s42 

2478 c1=13:c2=B: 0=-3: gosub&s6Q: got 02240 
24808 rem ##*** "drei Fehlversuche" ###%*%* 
2498 pokecz „1S:pokecs ,Q:sysmp:printas(7) 
:pokecz ,17:pokecs,Q:sysmp 

2588 printchr#+(18)" Richtige Loesung fue 
r gqgT und kgV : " 

2518 print:printtab (1B)"ggT =";g:print:p 
rinttab (10) "kqV =";k 

2528 fl=B:gosub71B:on-(fFl=1) goto43d: goto 
1708 


2550 : 
2540 rem ###** "Subroutinen fuer" ###%%* 
2558 rem ###** "Programmteil >53" KERRR 
2560 : 


2578 rem #*##* "Eingabepruefung Zahl" ##%#* 
2588 iflent(pf) >12thenrun 

25978 iflen(p#)=üOthenfl=1:return 

26082 w=len(p#) : for j=eltow: d#=mid#(p#,j,1) 
2618 ifasc(d$) <48orasc td#) >57then jew+tl:n 
extj:fl=1:return 

2528 nextj:return 

26308 rem * "Eingabepruefung Zerlegung” * 
2648 iflentpf) >4Qthenrun 
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2550 iflen(p#)=döthenfl=1:return 

2&hB w=len (pF):forj=itow:d$=mid#(p#,j,1) 
2678 ifasc (d$) <48orasc (dF) >57thenifasc (d 
$)< >S52andasc (df#)<>42then j=ew+1:goto2&ä7Bd 
2588 next j:return 

2598 nextj:pokecz „d:pokecs, (len(xF)+2):s 
ysmp:printleft#(z24#,48-(len(xfF)+Z)); 
2788 fl=1:return | 

2710 rem **** "Leerzeichenpruefung" ##%##* 
2728 w=len (a$) :fori=1tow:pF*F(i)=mid#(af,i 


2758 ifpt(i)=" "then2758 

2748 nexti:return 

2750 ti$=left$(af,i-1):t2$=erights(las,w-i 
) sa$=stist+tt2f:i=wtl:nexti:goto2720 

27608 rem #****%* "Hauptprogramm" KRARR 
2770 rem #####* "Pr.-fakt.-zerl." ###*%* 
27808 printchr#+(147)"Mit diesem Frogrammt 
eil kannst Du die":print 

27980 printchr#(18)" Frimfaktorenzerlegun 
g "chr#(146)" einer natuer-":print 

2888 print"lichen Zahl einueben. Nach Ei 
ngabe der":print 

2818 print"betreffenden Zahl sollst Du s 
ie als Fro-" 

2828 print"dukt schreiben, bei dem alle 
Faktoren":print 

2850 print"Primzahlen sind. Es kommt dab 
ei jedoch":print 

2848 print"nicht auf die Reihenfolge der 
einzelnen":print 

2858 print"Faktoren an. So ist 4008 = 7x? 
#+2*3*5%*5":print 

2868 print"ebenso korrekt wie &008 = 2#5# 

3#2*5%*2."sprint 

2878 print"&58Q9 = 2*2*10*15 hingegen stel 
lt nur"sprint 

2888 print"eine Faktorenzerlegung dar, w 
eıil":print 

2878 print"beispielsweise 15 keine Frimz 
ahl ist. ":gosub&8Qd 

2988 fF=R:printchr#(147) "Welche Zahl moec 
htest Du zerlegen 7" 

218 fl=-B:c1=2:c2=1d:gosubdßß: pFf=z +: gosu 
b257Q:iffl=1thenc35=2d: gosub64Q: gotoZF710 
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Z2I9ZB x=val (z$) sifxsizthenc3=2Q: gosubds4ß:g 
oto2971Q 

2938 xd=ex:x$=eright$itstr$(x) „lentistr#(x)) 
—1) +" ‘ 

2948 rem * "pruefen auf Zerlegbarkeit" * 
2958 on-(x=Zorx=I) gato2997Q: ifx/Z=int (x /2 
)thenS@18 

2968 k=3 

29778 on-(x/k=int (x /k))gotoS@id:ifkBßZr“th 
en2978 

2988 k=k+2:goto277B 

297798 rem * "eingegebene Zahl war prim" # 
SBRB pokecz „4:pokecs ,„d:sysmp:printxFt:a#t 
12) s:print:printas(15):90t03430 

Ssaß1Q rem *** "Computer bestimmt FFZ" #*+ 
Saß2B h=l:y=xıa=2 

>3a3B on-(ary/2)gotoSßSß:m=x /arn=int (x/a) 
:ifm<>nthena=sa+1:goto35d3g 

584828 r(h)=a:x=m:ıh=h+l:on- (x=1)gotoSB5d:g 
otosasa 

>858 rem **#* "Anwender bestimmt PFZ" #%## 
S@as4Qd Fl=QB:pokecz „4:pokecs ,d:sysmp 

3878 printchr#(18)" Gib mun die Primfakt 
orenzerlegung ein '!" 

s888 pokecz „sd: pokecs ,B:sysmp:printx$, "= 

"ssci=ö6:c2=1len (x$) +Z:gosubdßd 

Sa7B8 pF=zF:gosub263Bß:on-(fl=l)gotoSßäß:a 
$=z$:gosubZ718 

S12B rem #*#** "Stringauswertung" #F##%% 
3110 atsat+"«":z=Q 

3128 w=len (a$) :sfori=1towsp# (i)=mid#(af,i 
‚1 

3132 ifps(i)="*"thenz=z+ti:t#(z)=leftt(as 
„‚i-1)saf=serightt(laf,w-i):goto3158 

3148 nexti:goto3168 

3150 i=w+tl:nexti:goto312® 

3168 pr=1:foru=sitoz:pr=pr*#val(t$(u))inex 
tu: ifpr<>xdthen3328 

3178 rem ##* "alle Faktoren prim ?" xur%* 
3188 foru=sitoz:fr=valttf#(u)) 

3198 on-(fr=2orfr=3)goto3235B: iffr/2Z=intt 
fr/Z)then324B8 

3288 k=3 

35218 on- (fr/k=int (fr/k) )goto324B: ifkl 2>F 
rthen3238 
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53228 k=k+1:goto3218 

3238 nextu 

3248 rem ####%*# "PFZ ist richtig" ##a#%% 

3258 pokecz „?:pokecs ,B:sysmp:printa# (14) 

: gotoS54 SQ 

32688 rem ##* "nur Faktorenzerlegung" *%*%* 

3278 f=f+t1l:pokecz ‚?:pokecs,@:sysmp:print 

af(16) 

3288 pokecz ,i1l:pokecs ,‚Q: sysmp:printaf#t17 

) 

3298 pokecz „153:pokecs ‚dB: sysmp:printaf#(18 

) :iff>2then33578 

33808 pokecz „16: pokecs ,‚B: sysmp: printafs(2+ 

f) ' 

3531B gosubds8B: c1=64:c2=B: o=11:gosubd&äAß: go 

t 03088 

3328 rem *###** "falsche Zerlegung" ####% 

35358 f=f+1:pokecz „?:pokecs ,Qd:sysmp:print 

as(t15) sa$=z$:gosub271B 

3553548 pokecz ,il:pokecs ,@:sysmp:printright 

$(str#(pr) „len(strf(pr))-1);" = "ja 

3358 on-(f>2) goto337B: pokecz ,13:pokecs,@ 

: sysmp:printast(2Z+f) 

33568 gosub4d8B:c1=46:c2=Q: 0o=8: gosubdäß: got 

o3B8B 

35378 rem ###** "drei Fehlversuche" ###%% 

33828 pokecz ,16:pokecs ,@: sysmp:printa#(7) 

: pokecz ,18:pokecs ,d:sysmp 

>3978 printchr#(18)" Richtige Frimfaktore 

nzerlegung : "chr#(146) 

5408 pokecz ‚„Zd:pokecs ,@: sysmp: printx$; "= 
3 

3418 s=h-1:forh=1to(s-1) sw=len (str$(r(h) 

»)sprintright$(strftr(ch)) „w-1)3"%*"5 

5428 nexth:w=len (str#(r (s))):printright# 

(strf(r(s)) ,w-i) 

3458 f1=B:gosub71Bß:on-(fl=1)goto43Q: goto 

2908 

ready. 
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Programm-Telegramm 


© Winkelbestimmung und Dreiecksberechnung durch zufallsgesteuerte Aufga- 
benstellung. 


© Wirklichkeitsgetreue Darstellung durch Planfigur und Sonderzeichen. 
© Mit schrittweiser Hinführung zur Lösung. 


Sinus & Co 


Wie war das noch? 


Aus dem Latein-Wörterbuch: sinus = Rundung, Krümmung, Bogen, Falte, Meerbusen, 
Bucht, Schlucht, Vorsprung, Landspitze, Busen, Brust, Schoß, Tasche, Geldbeutel, Lie- 
be, Fürsorge, Schutz, Verborgenheit, Innerstes, Herz, Gewalt, Macht. 

Solche Vieldeutigkeit ist Mathematikern ein Greuel. Sie definieren den »Sinus« lieber 
ganz neu: Der Sınus ıst eine (Winkel-)Funktion: Jedem Winkel & wird ein Zahlenwert 
sın(@) zugeordnet. In einem rechtwinkligen Dreieck ist dieser Wert gleich dem Längen- 
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verhältnis von Gegenkathete/Hypotenuse. Die Hypotenuse ist die dem rechten Win- 
kel gegenüberliegende Seite, die Gegenkathete liegt dem Winkel @ gegenüber. Das 
Verhältnis aus Ankathete/Hypotenuse definiert den »Kosinus« von a (die Ankathete 
liegt am Winkel 0). 

Damit aber nicht genug: Im rechtwinkligen Dreieck kann @ nur Werte zwischen 0° 
und 90° annehmen. Man erweitert die Definition schließlich so, daß jeder Winkel sei- 
nen »Sinus« bekommt. Dazu benutzt man den Einheitskreis, einen Kreis im Koordina- 
tensystem mit dem Mittelpuntk (0/0) und dem Radıus 1: 

Zu jedem Wert von a gibt es einen Punkt P auf dem Einheitskreis. Seine Koordinaten 
(x,y) definieren Sinus und Kosinus: cos(@) :=x, sin(@) :=y. Die Vorzeichen von x und 
y ergeben sich aus der Lage im Koordinatensystem. 


| une | ß ) ' 1 
x 90° 180° 270° 360° 


Zeichnet man nun noch den Graphen dieser Funktion daneben, dann sieht man, wo- 
mit sich der Sinus seinen Namen verdient hat. 


Reichlich verwinkelte Beziehungen 


Wie man sieht, läßt diese Definition auch Winkel > 360° oder < 0° zu. Der Sınus 
von 40° ist dabei »genau soviel wert« wıe der Sinus von 40 +360°, 40+720°, 40 — 360°, 
usw., wenn man sich die Winkel als Drehwinkel vorstellt. Negative Winkel entstehen 
bei umgekehrter Drehung (im Uhrzeigersinn). Die Sinus- und Kosinuswerte solcher 
Winkel rechnet jeder etwas bessere Taschenrechner brav aus. Denn wie bei jeder Funk- 
tion herrschen auch bei der Sinusfunktion eindeutige Verhältnisse. Wehe aber, wenn 
man einen Sinuswert oder Kosinuswert hat und man sucht »den« richtigen Winkel. Da 
gibt es nämlich unendlich viele! Der Taschenrechner nennt nur einen. Gibt man z.B. 
ein 0.643 INV SIN (statt INV für »Umkehrung«, verwenden manche Taschenrechner 
auch ARC, SECOND, SIN hoch -1,... ), so bekommt man z.B. den Wert & = 40°. 
Weitere Lösungen sind aber auch @ = 40+n x 360°, @ = 40—n x 360° mit n=1, 2, 
3 .... Wie man oben sieht, gibt es jedoch auch im Bereich von 0 - 360° noch einen 
zweiten Wert (mit ebenso vielen »Verwandten«). Im Mathematikbuch findet man dazu 
eine Reihe von Umrechnungsformeln, die man natürlich auswendig lernen kann, etwa 
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sin(@)=sin(180°- a), sin(-a)=sin(180°+0), sin(@)=sin(360°-a), cos(@=cos 
(360° — &). Auf Dauer hilft bei solchen zum Verwechseln ähnlichen Formeln nur eines: 
Man merkt sich die Symmetrien am Kreis: 


sin (@) = sin (180° -o) 


cos (a) = cos (360° - a) | | cos (a) = cos (360° - 0) 


Faustregel: Sinus = y-Wert 
(also symmetrisch zur y-Achse) 


Kosinus = x-Wert 


(also symmetrisch zur x-Achse) 


Zur Not zeichnet man sich kurz einen Kreis auf. Der erste Teil unseres Programms 
trainiert diese Überlegungen zum Auffinden des zweiten Winkelwertes. 


Dreiecksverhältnisse! 


Dreiecksberechnungen mit Hilfe von Sinus- und Kosinussatz 


In der Regel kann man aus drei gegebenen Stücken die übrigen drei Stücke eines Drei- 
ecks berechnen. »Stücke« sind dabei Winkel oder Seiten. In einigen Fällen gibt es je- 
doch keine eindeutige Lösung (Kongruenzsätzel); (WWW)=drei Winkel und 
(SSW)=ein Winkel und zwei Seiten, wobei dem Winkel die kürzere der beiden Seiten 
gegenüberliegt. Außerdem darf die Winkelsumme z.B. nicht 180° überschreiten, oder 
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eine Seite darf nicht länger sein als die Summe der beiden anderen. Diese Bedingungen 
werden von unserem Programm automatisch kontrolliert. 


Sinussatz: | a/sin(@) = b/sin(ß) = c/sin(y) 


Merke: Seite und gegenüberliegender Winkel bilden ein Paar. 


Kosinussatz:| c a + b? - 2ab - 
=b? + c — 2bc 


=2+0c 


— 2ac 


Die Anwendung des Sinussatzes ist rechnerisch nicht so aufwendig wie die des Kosi- 
nussatzes. Man sieht schnell, daß man den Kosinussatz grundsätzlich nur bei der Be- 
rechnung des ersten gesuchten Stückes benötigt, und dies auch nur dann, wenn alle drei 
Seiten (SSS) oder zwei Seiten und der davon eingeschlossene Winkel (SWS) gegeben 
sind. 


Programmablauf 


In einem Vorprogramm wird der Zeichensatz im RAM abgelegt (ab 2048) und geän- 
dert. Neben einigen Sonderzeichen (griech. Buchstaben) wird vor allem die Planfigur 
(Dreiecksberechnungen) mit Hilfe des Zeichensatzes dargestellt. Um Zeit zu sparen, 
verwendet man hierfür am besten ein kleines Maschinenprogramm. Gleichzeitig wird 
das Hauptprogramm nach (4096) verlegt. Will man nur den ersten Programmteil (Be- 
stimmung des zweiten Winkels) benutzen, kommt man auch ohne das Vorprogramm 
aus. 

Das Vorprogramm wird normal geladen und gestartet. Nach der READY-Meldung 
kann auch das Hauptprogramm normal geladen und gestartet werden. Im Programm 
wird dann zunächst danach gefragt, ob man die Winkelbestimmung (Teil I) oder die 
Dreiecksberechnung (Teil II) trainieren möchte. 


Teil I (Winkelbestimmung) 


Zu einem mit der RANDOM-Funktion ermittelten Sinus- bzw. Kosinuswert sind zu- 
nächst die Bereiche der beiden zugehörigen Winkel anzugeben. Macht man einen Feh- 
ler, bekommt man eine grafische Hilfestellung. Danach wird einer der beiden Winkel 
angegeben (dieser entspricht dem Wert, den auch ein Taschenrechner angeben würde). 
Ist z.B. der Sinus negativ, so wird von den meisten Taschenrechnern ein negativer Win- 
kel angegeben. Für den zweiten Winkelwert (zwischen 0° und 360°) werden drei Lö- 
sungen (mit entsprechender Umrechnungsformel) angeboten. 

Am Schluß einer Übung kann man mit einer beliebigen Taste die nächste Übung an- 
fordern, oder mit »1« über das Hauptmenü in den Teil II gelangen. 
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Teil II (Dreiecksberechnung) 


Das Programm stellt Aufgaben zur Dreiecksberechnung. Dazu werden die üblichen 
Hilfsmittel (Taschenrechner mit Sinus und Kosinus, Papier, Kugelschreiber) benötigt. 
Zu Beginn jeder Aufgabe erscheint ein Dreieck auf dem Bildschirm, bei dem Winkel 
und Seiten bezeichnet sind. Neben der Auswahl der gegebenen Stücke ändern sich mit 
jeder Aufgabe auch die Bezeichnungen! Es wird nun danach gefragt, ob der Sinus- oder 
der Kosinussatz verwendet werden muß. 

Dann wird danach gefragt, welches Stück berechnet werden kann. Die Winkel a, ß 
und y werden dabei mit den Tasten Commodore a, b und c eingegeben. Nach richtiger 
Eingabe wird die Formulierung des entsprechenden Ansatzes verlangt. Er wird nicht 
eingetippt, sondern auf einem Zettel formuliert. Mit »=« (oder einer anderen Taste) 
kann man den eigenen Ansatz mit dem des Computers vergleichen. Hier sind einige 
Besonderheiten zu beachten: 


1) Im Falle (SSS) sind drei Ansätze mit dem Kosinussatz möglich. Der Computer nennt 
deshalb vorher den gesuchten Winkel. 

2) Im Falle (WSW) kann man den Sinussatz erst nach Berechnung des dritten Winkels 
anwenden. In diesen Fällen gibt der Computer nur den Hinweis auf den Winkel- 
summensatz und geht zur nächsten Aufgabe über. 

3) Die vom Computer zum Fall (SSW) gestellten Aufgaben sind zwar immer lösbar, 
jedoch kann es auch noch eine zweite Lösung geben (SSW). Das Programm gibt bei 
der Formulierung des Ansatzes einen entsprechenden Hinweis. 


Ist der Ansatz kontrolliert, kann das gesuchte Stück auf dem Zettel ausgerechnet und 
anschließend mit »=« überprüft werden. Falls der eigene Wert falsch ist, kann man sich 
schließlich noch alle dazugehörigen Zwischenergebnisse ausgeben lassen. Will man 
auch die beiden letzten Stücke noch berechnen, so gibt das Programm auch hierzu 
noch die richtigen Ergebnisse an. 

Will man eine Aufgabe nicht fortsetzen, so kann man jederzeit mit »!« zur nächsten 
Aufgabe übergehen. 

Ein vorzeitiger Übergang zur nächsten Aufgabe ist z.B. sinnvoll, wenn man den im 
Ansatz verlangten Kosinussatz noch gar nicht kennt. Für diesen Fall kann man zu Be- 
ginn der Berechnungen auch den Anteil an Kosinussatzaufgaben auf 0 setzen. Norma- 
lerweise wird man hier wohl den Wert 50 (= 50 Prozent) eingeben. 
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Die wichtigsten Programmzeilen 


100-780: 


310-560: 
570-610: 
620-690 : 
700: 

710-780: 


/R— 1340: 


860 : 
870-940 : 
950-1010: 
1080 : 


1290 — 1340 : 


1350 — 2820 : 


1350 — 1380 : 
1430 — 1470 : 


1500 : 


1540 — 1570: 
1580 — 1770: 


1820 : 


1840 — 1920 : 
1930 — 1980 : 
1990 — 2080 : 
2090 — 2160 : 
2170:-=2220: 
2230-2310: 
2320-2410: 
2420 — 2560 : 
2370= 2820: 


ALLGEMEINE VORBEREITUNGEN 


Sonder- und Steuerzeichen 
Aufgabenliste (2 mal 9+3 Ansätze) 
Funktion-Unterprogramme 
Bildschirmfarbe 

Teile-Menü (I oder I) 


I WINKELBESTIMMUNG 


Sinus-/Kosinuswert (Zufallswahl) 
Bereich für 1. Winkel 

Bereich für 2. Winkel 
Winkel-Alternativen für 2. Winkel 
Graphische Hilfe 


HI DREIECKSBERECHNUNGEN 


Warteschleife 

Anteil Kosinussatz 

6 Reihenfolgen für 3 Seiten 
Zufallswahl der Seitenbezeichnungen 
Planfigur drucken 

Zufallswahl Sinus-/Kosinussatz 
Sinussatz (15 Ansätze) 

Kosinussatz (6 Ansätze) 
Alphabetische Ordnung der Stücke 
Zufallswahl sämtlicher Ergebnisse 
Gegebene Stücke 

Sinus- oder Kosinussatz? 

Gesuchtes Stück? 

Formulierter Ansatz 

Ergebnisse 


(Helmut Klatt) 
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REM KUREN TINTEN N IR 
2 REM * VORPROGRAMM ZU # 
3REM + SINUS UND KOSINUS $ 
4A REMOCHERURRTTTERNIEN TEEN ER IN RREN 
5. 

& REM COPYRIGHT BY 

7 REM MODERNE VERLAGS GESELLSCHAFT 
8: 

9 REM AUTOR: HELMUT KLATT 

10 : 

11 REM -- ZEICHENSATZ NACH 2848 


12 A=49151:FOR J=1T016:5=8 

13 FORI1=1TD18:READX : A=A+1: POKEA,X:5=5+X 
14 NEXTIsSREADX: IFX<S >STHENPRINT"FEHLER IN 
":18+2*J:STOP 

15 NEXTJ: S=B: FORI=1T09: READX : A=A+1: POKEA 
„X:5=5+X:NEXTI 

1& READX: IFX<>STHEN FRINT"FEHLER IN 52"5; 
:STOP 

17 SYS 49294 

iB REM -------- nn ne —— 
28 DATA 8,11,1,3,6,12,24,48,96,192,16,11 
„1,3,6,12,24,48,522 

22 DATA 98,255,24,11,8,08,128,796,48, 24,6, 
255,48,11,8,8,8,0,994 

24 DATA 16,56,182,195,48,11,192,96, 16,12 
‚2,1,8,8,568,11,08,08,814 

26 DATA 8B,2,8,128,968,48,64,11,12,6,1,2,80 
‚2,0,0,72,11,449 

28 DATA 8,8,128,192,48,24,6,3,88,11,12,6 
‚1,08,0,0,0,255, 766 

3B DATA 248,11,48,72,72,48,8,8,8,8,248,1 
1,08,40,102,124,102,102,1248 

32 DATA 124,968,128,11,8,8,59,106,68,1B6, 
57,8,48,7,08,0,59,106,9779 

354 DATA 68,185,59,0,224,11,8,182,55,24,5 
2,108,188,56,8,8,173,14,1168 

36 DATA 2290,41,254,141,14,228,165,1,41,2 
31,133,1,169,8,133, 254,169, 216, 2431 

58 DATA 133,252,169,8,133,251,133,255,16 
8,0,177,251,145,253,288,192,0,208,29108 
4B DATA 247,230,252,2530,254,165, 252,201, 
224,288,235,165,1,9,4,133,1,173, 2984 

42 DATA 14,220,9,1,141,14,220,169,192,13 
3,254,169,8,153,253,16808,0,177,2259 
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44 DATA253,133,251,23@0,253,177,253,240,4 
5 ,133,252,230,253,160,0,177,253,145,3438 
46 DATA 251,280,192,8,208,247,24,165,253 
‚105,8,133,253,76,213,192,145,253,2926 

AB DATA 192,8,288,231,24,165,251,185,9,1 


44,2,250, 252,153, 251,76, 213,192,2686 


SQ DATA 169,19,141,24,208,169,0,141,0,16 


„169,1,133,43,169,16,133,44,1595 


52 DATA 133,46,169,3,133,45,76,116,164,8 
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rem 
rem 
rem’ 
rem 
rem 
rem 
rem" 
rem 
rem 


Irem" 


rem 


KEREKRRERKRTRITRRTKHRRE RT IR 


% # 
* Sınus und EKosinus * n 
%* % 


KERKKKKERHTKERKTITK TH N N TH HN KK 


Copyrioht 1985 by " 
moderne verlags gesellschaft 


Autor: Helmut HKlatt s 


rem teil ii winkelbestimmungen 


ren 


rem teil ıı dreiecksberechnungen 


rem 
rem 
rem 
rem 
rem 
rem 


poke 


neuer zeichensatz ab 2348 wird 
im vorprogramm eingerichtet 
(umschalten mit poke 32272,19 
hauptprogramm beginnt bei 4996 


m zuree wrnne ww bus ans wurde Bid U ER We Sale An u uhn uheh DEANEE rende GOeet DENN weiiiue OUEN Gumite Mannee AmeE Amen Anne Min Miete Ging when 


S3280,1:poke 53281 ,1 


dim auf(11),da(t16) 

rem ——-sonderzeichen i+ii 
wt=chrt(38):rem alpha i 
gt=chrt{t17@):rem grad 


dt=chrf(17) :rem down=cursor runter 


uf=chr$(145) :rem up= cursor rauf 


1$=chr#+(157) ırem left=- cursor lınks 


rt=chrF(297) rem cursor rechts 
hmnt=chr#(19) :rem cursor home 
cl#=chr#(147):rem clear screen 
rif=chr#$(18) :rem revers an 
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410 rof=chr#+i14ö):rem revers aus 

O0 let=" 'ıremilF7*tleer 
438 dct=chr#t(1ö64):rem dreiecksseite c 
448 dbF=chr#t(löl):rem dreiecksseite b 
450 at=chr#(176) :rem alpha ii 
4ER br=chrFt1iF1) :rem beta 

4720 c#=chr#(188) :rem gamma 
4850 ıF=chr# (221) :of=chr#(42) 

4970 st=zsofFtittos+" "+ifr+r" "+3+"Y "+ofF+if 
+0$+" "+if+tos+" "+if 

aa st=sttrof+rof+tit+t" "+oF+is+" " 

„sid rem --- dreieck ii ecken 

s2Q rem ecken 

Bd eat=chr#ti1b2) sebF=chrF (143) zec$=chr# 
(165) 

„s4Q0 rem --- dreieck ii seite a 

sad ddt=schr£tiä6) +chr# (167) :ee$=chr# (168 
ı)+chr£(1697) 

sehd rem 

»/B rem --- aufgabenliste zu ii 

„830 data 74502,4351,9342 

„rB data 7041,3052,41308,4152,59230,9241 
sBR data 7128,4021,5012 

si Fori=Btoillsreadau$(i)snext 

sd rem --- funktionen ----- nn 
6:0 rem --—- zufallszahlen QD,1,2....,„X-1 
sad »=ernd(-ti) 

ad def Frnrtx)=sint (rnd(1) #8. 979979) 

ss rem --- arcsinee) 

67/8 def frnstx)=.Blr#int (.I+r18R0B/MRatn (a / 
sgar (-x#4+1))) 

688 rem --- arccosiez) 

&9B def frncotx)=.Blsint (97ODRB.5-18008/Trat 
n(x/sar (-x#ax+1))) 

782 pokeS3281,peek (53280) :poke645,0 

/IAQB rem --- menue i oder ii 

728 printcl#"Sinus und Kosinus * Trainin 
gsprogramm":printd#F"von Helmut Klatt" 
738 printdf,d#;d#;d#"i Teil I - Winkel 
bestimmung" 

748 printdt:;:d#"2 Teil II — Dreiecksbere 
chnungen" 

758 getz#+t:ıifzf=""then?7S5®d 

7608 ifzf="1"then?Fd 

778 ifzt$="Z2"theni1:970 
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7828 goto7Sd 

zI12 rem eurer rn 
sta rem i ZZ winkel zwischen Q und 340 
Siß rem 

BZO rem --- sinus bzw cosinus vorgeben 
sa frtll)="sin"ıtft(lZI="cos" 

848 aliB)=d:al(l)=24:allZI=e1B:all)>=el2 
BIO wir=" 180" +ga&+"--180"+taF+"+Föß"+g 
rt szıte"12r 

BAR m=-1:u=sfnr (28008) -1BBR: u=u/1BDBR: v=fnr 
(Z)+rlem=(imtv)#2 

87/8 ifu<ßdthenm=m+1 

8880 printcltf; flv)" ("wE")="sus" =>"d$ 
898 fork=1to4:printtab (14) sky :al#=strfck 
*7Q-FB) : a2$=str#(kr*9D) 

708 al$t=right$stleftalit, >) :aiftf=righttltlet 
+a2#,5S):print" "alts;g&"< "wF$r 

F1B print" < "afsıg$ 

720 next:print 

738 input"Welcher Bereich";h:h=int (h) 
748 ifh<iorh>4then printus;uf:goto 97508 
FSB rem --- richtig 7 

768 hi=2ßh:ifchlandal (m) )=dthenra=il:goto 
12980 

770 a2=al(m)-hil:print"OK! "; 

788 input"und";h2:hZ=int (h2) 

F77B ifh2<Borh2>4Athen?78B 

10080 hS5=2Rh2: if (h3andaz) =dthenra=2:gotol 
290 

18120 ei=-B:ifv=2then1i1270 


1822 rem --- sin 

1838 wA=fns (u) sed=2:ifmiitheni1 2408 

10840 rem --- sin SQ 

1050 wi=-wB:zi=l:eß=s:el=4 

1050 printcl#"OR! "EFELV)" "RE )="surpri 
nt 


1078 printw$: "DB ="wdsg#" =>"dF:ki-i 
1080 w(il)d=wlin (2) =-180-n1:n (5) =180+tu1:wi(4 
I =56D-wi 

10898 fork=kilto4: hf=midt (wiF,kK*5-4,5):pri 
nt 

1108 printtabtl)ıky" "snssmid$(zif,zi, 
1)5," ="sh$swl;gFt"=";w(k) ;gFt 

1112 nextk:print 

1128 ifm<>1then1170 


Sinus und Kosinus 
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1158 inpute:ife=selthenprintdt"OK! "s:got 
olldöß 

1148 ife=eßthened=el:printd$"OK! "s:goto 
11648 

1158 e=el:printd#*"leider falsch: " 

11&B printwF'"i ="midt(wi®,e*r3-4,5) ;ıw1:g# 
"z"sw(e)sg#*:print"und’”s 

1172 inpute:ife=edtheni119@ 

1188 printd#'"leider falsch":goto1178 
1178 printd#F"Ok! "sw; "2 ="midflwif,e 
#5-4,S)ıw1l,gf"="wle)sgf 

1288 printd#;d#"t Menue" 

1218 getz$:ifz#=""theni121® 

1220 ifz$="f "then71® 

1258 goto 858 

1248 wi=wQ:zi=2 

1258 printcl#"OK! "sts" (rw ")="su 
print 

1258 printwt"1 =";wQ:g#$" =>"d$:ki=2:goto 
12808 

1278 rem --- cos 

1280 w@=fnc (u) seß=4:goto1249 

1298 rem --- falsch = hilfe 

1388 print"leider falsch:"; 

1518 printtab(SQ) smid$(s$,m#*6+1,3) 

1328 printtab (38) ;schr#+ (192); chr# (219) ;ch 
r$#(172) 

1358 printtab(3Q) smid$(s$ ,m*&6+4,53) 

15340 onragoto930, 788 

1358 rem --- up eingabe ----------- ----—- 
1568 getz#:ifzt=""theni13640 

1378 ifz$="f "then1540 

15880 return 


1398 rem ------------ -- -- 
1480 rem ii dreiecksberechnungen mit 
1410 rem sinus- und kosinussatz 

1428 rem 

14358 rem --- anteil kosinussatz 


1448 printcl$; "Wieviel Prozent der Aufga 
ben sollen" 

1458 printdf"zum Kosinussatz gestellt we 
rden 7" 

1468 printdt"(Sinussatz + Kosinussatz = 
188 Frozent) ":print:input qgk 

1478 gk=.BDi#agk 
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1480 
14978 
1500 
1518 
1520 
1530 
1540 


Sinus und Kosinus 


ant(1)="S"san#(2)="kKos" 
rem —--- bezeichnungen 
se+="3453544 35453334543" 
s$ (DB) =at:s#ttil)=bf:s#(2)=c# 
rem 

rem --- neue aufgabe 


k=fnr (6) #3+1:bzt=mid#t(se#,k,„>):k=fn 


r (5) +68 


1550 
1560 
1578 
1588 
15970 
1400 
1618 
16202 
16530 
next: 
1640 
1630 


s$(valtlefttt(tbz$,1)))=chr#ttck) 
s#t(val(mid*(bz#,2,1)))=chrfttk+1) 
st(valtright#(bz#,1)))=chr#(k+2) 
rem --- planfigur 
printcl$;tab(1l)sec$ 

rem --—- seite b 

fori=-1t07:printtab (11-i)db#*:next 
rem -—-—- seite c 

print" "seat; :fori=1to24:printdct:: 
printeb# 
printhmt:fori=1toll:printrt::next 
printdt; c#; d$; d; d$, :fori=1to8:prin 
next:prints#(4); 
fori=1tols:printrt; vnext:prints$(3) 
printd#,d#ıd$s r$; r$ırfır$,af; 
fori=1toöd:printr#; :next:prints# (5; 
fori=-1toY9:printrf: :next:printb#;df; 


printhm#: fori=1tolZ:printr*; next 
rem --- seite a 

fori=-1to4 

printdd$;df; 1f;5eet; df; 

next 

printddt; dt, IF: chr# (170); 
print:print 

rem 

rem --- wahl der aufgabe — ansatz 
rem al$ = ansatzparameter 

rem au > nummer des ansatzes 

rem 99% gegeben — xx? gesucht 
ar=rnd (1) :sz=l:ıifgrigkthensz=2 
ifsz>1then1740 

rem ——-—- sinussatz 

au=sfnr (9) +3:al$f=aufF (au) :ifau>öthen! 


u=fnr (Z) +1:ifu>1then1B9D 
ggt=right#lalF$,S):xxF=left#(alf,!i) 
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18820 s1=9: goto29908 

18980 gg$=left#t(alf#,1)+tright$tal$,?2)ıxx$= 
mid$tal$,2,1):sl=1 

19700 goto2aHR 


17108 rem --—- winkelsumme 
1928 sl1=-2:gotolY788 
1958 rem --- kosinussatz 


1948 sl=-1: ausfnr (SF) salFf=auf (au) 

1958 u=fnr (2) :ifu<ithen1Y78B 

1980 ggaFt=rightslalf,3)ıxx$=leftttalft,]1) 
1770 gotozBBR 

1988 ggF=leftf(al#$,F):xxt=righttlalf,]) 
1990 rem --- ordnen gg# und hh# 

2B08 »UB=val (xx$) cshht=""trFF="" 

2010 fori=1to3:xtF=mid#(bz#,i,l) 

2828 for jeltoS:ifx$=midttgg#,j,i)thenff# 
=ff$+rx$:goto2d40 

2038 next j:hht=shht+x$ 

2040 nexti 

2858 fori=Bto2:xF=rightt(tstrft(i),1) 

2BA0 For jeltos:ifxt=midtf(tggt,j,i)thenffs 
=fft+rxF:goto2B80 

2070 nextj:hht=hht+x$+ 

2080 nexti 

2090 rem --- zahlenwerte fuer parameter 
2108 s (B) =208+fnr (116) :590=0:5t35)=0:5t4)=B 
5 (5)=B:ug=7/180 

2118 s(1)=2B+fnr (141-s (DB) ):ifstl)<is(siit 
hensd=1 

2128 s(2)=180-s (DB) -stl):ifst2)<istsßithen 
sdö=2 

2130 s(tsd+35)=1.S+fnr (21) /1B:qs=10*#s (sd+3 
/sintug*s(sQ)) 

214B ifs(3)=Bthens (FI) =. 1#int (tgs*#sin (ug*#s 
(B))+.5) 

2158 ifs(4)=üOthens (4)=. 1*int (qs*#sin (ug*s 
(1))+.59) 

z216B ifs(S)=BthenstS)=. 1#tint(gs#sin (ug*s 
(ZI)+.59) 

2178 rem --- sinus- oder kosinussatz 
2188 print"Gegeben sind "; 

2198 fori=1toS:k=val (mid#(ff#,i,1)) 

22080 prints#t(k)y,"="sstk);3 :ifkisthenprint 
ltıqg#; 

2218 print" "3; 
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2B nexti 
2S5@ printdf:print"Ansatz ”?"s | 
2248 print" 1 Sinussatz 2 Kosinussatz 


„50 get zt:ifzF=""then225ß 

2260 if z$="1"then 22970 

2278 if z$="2"then 2290 

2280 goto22358 

2298 ifval(z$)<>szthenprintus"#** falsch 


2380 ifval(zt)=szthenprintu#"*** richtig 
2310 print" Ansatz = "sant(sz); "inussatz 
2328 rem -——- gesuchtes stueck 

23538 print"Welches Stueck kann man berec 
hrnen?":print"(f Ende) ". 


2348 fori=itof:prints$s(val(mid$(hh$,i,l) 
I)" "asnexti 


23580 print" ze 
2360 gosub1360 
2378 rem -—— kosinussatz -- TI winkel 


2388 ifsz“Z2then24B28 

25398 ifxB735then2428 

2420 ifzt=s#(xB) then2428 

2410 printus:'"**%* falsch! "s:goto2F4B 
2428 printuf;uF"OK! Formuliere den Ansat 
z fuer "ıs$(xB) 

2452 print"auf einem Zettel. Dann vergle 
iche "ri#t"="rof 

2442 gosub1>3&40 

2458 ifs1l1<2then247B 


245B0 print"Winkelsumme = 188";gf" '!' Neue 
Aufgabe":gosub1l1F36Q8:gotaoa1540 

2478 rem --- ansatz und ergebnisse 

2480 rem vorbereiten 

2498 si=val(left#ttal#,1)) :s2=val (mid#(al 

£$,2,1)) 

2588 s3=vallmid$(al#,3,1)):s4=val (right 
(alf,1)) 


S51B sift=s#isl) ssit=-st (s?) ı s}F=-st (lsih):s4 
g=s5+(54) 

2520 ifsz >1then2568 

25328 sif=leftft(le#,13):ifsl=-9then?255d 
25408 sit=" "+s5Ff+r'">"+s1$+" "+rıistr" SsW 
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L +rofFf+ . 


28 


u 


printus;uf" "sil$"/sin("s2#") = " 


s5#+"/sint"s4#")"si#:9g0t02578 


2568 


"s3$"t 


2578 


£(xB) " 


2580 
2578 
2608 
2618 
2620 
2620 
2640 
2650 
2u60 


printussus" "sig't2 = "s2E"t2 + 
2 Zst" Trcosel"sdt") . 
printle#+tlef:print"Ergebnis fuer 
"rit'"="rof;le$ 

gosub1360 

printus,s#F(xQB)" =":s(xB);1l#; 
ifx@<3thenprintgft; 
printleftft(le?,8); 
print" Zwischenergebnisse 
gosub1 340 

ifsz -1then2798 

rem --- zwischenergebnisse sinus 
print"sint"ıst(ts2) ıl#ıgf:")=";sin(ug 


"ris"="ro$ 


*#5(52)) 
2678 sö=sin (ug*s (s4)) :print"sin(",s(s4); 


1$,g%#" 


2680 


>)/s3 


2670 
2780 
27180 
2720 
2758 


="ı5J 
printsIS#"/sint"ıs(ts4),1l1#FıgF")="ıis(s 
: 90oto2760 

rem --- zwischenergebnisse kosinus 
printsi#'"T2 ="ıs(si)#s(si); 
printtab(?2B)s?$"T2 = "ısts2)*s(s?) 
prints3#'"Tz7 ="ss(s3)#s(s3); 
printtab(17)"-Z#"s2#"#"sIF" = "2% 


s(s2)xs(s}) 


2748 print"cost"ssts4),1#Fyg$;,")="scos(ug 
*s(s4)) 

27580 rem --- alle endergebnisse 

27&8 print:print"ÄAlle gesuchten Stuecke 
"ri$"='"rof 

2778 gasub1548 

2788 fori=1toS:k=val (mid#chh$,i,1)):sprin 
tst(k);," ="sıs(k)s; 

27978 ifk<äthenprintlft:ıgf; 

28008 print" "senexti:print" "ri#'t"rof 
z818 getzf:ifzF=""then28i1d 

28280 gotolS4ß 
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3 
Deutsche Literatur (Grundwissen) 


"ERUNDNISSEN- DEUTSCHE LITERATUR |] 


DICHTER 
FRIEDRICH HEBBEIL 


Programm-Telegramm 


© Ein »farbiger« Test in 4 Schwierigkeitsstufen für 1 bis 5 Teilnehmer. 

© Zuordnung von Dichter, Werk, Epoche und Gattungsform im Wettlauf gegen 
die Zeit. 

© Mit aktueller Sieger- und Punkteliste nach jeder Runde! 


Ein Pfad durch die deutsche Literatur 


Abgrenzungen 


In diesem Programm werden Fakten aus der Literaturgeschichte überprüft; ein Wertur- 
teil wird nicht gefällt. Dem Leser soll eine Grundlage vermittelt werden, auf der er wei- 
ter aufbauen kann. Dieser knappe Überblick mag als Orientierungshilfe dienen. 
Die Dichtung der frühgermanischen Zeit wurde nicht in dieses Programm aufgenom- 
men. Sie besteht häufig nur aus mündlicher Überlieferung, wobei der Verfasser unbe- 
kannt bleibt. Zudem wird sie im Schulunterricht nur verhältnismäßig knapp behan- 
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delt. Die relativ unbedeutende, meist bürgerliche Dichtung gegen Ende des Mittelalters 
(14. Jh.) wurde hier ebenfalls nicht berücksichtigt. 

Aufgrund der äußerst umfangreichen Dichtung vom Ende des 19. Jahrhunderts bis 
zur Gegenwart mit ihren zahlreichen unterschiedlichen Strömungen, erscheint es rat- 
sam, daß der Anwender mit diesen Daten ein eigenes Programm füllt. 

Der Bogen der Einträge spannt sich von der ersten Blütezeit der deutschen Dichtung, 
der Höfischen Klassık, bis zum Ausklang des Realismus. 

Innerhalb der Epochen mußte bisweilen, insbesondere bei der Lyrik, eine exemplari- 
sche Auswahl getroffen werden. Ein wesentliches Kriterium war hierbei auch die Be- 
deutung, die den verschiedenen Werken in den Lehrplänen zugemessen wird. In 
Ausnahmefällen ist die Epochenzugehörigkeit nicht allgemein verbindlich festgelegt. 
Einige Vertreter des literarischen Biedermeier (z.B. Stifter, Droste-Hülshoff u.a.) werden 
in manchen Literaturgeschichten auch dem Frühen Realismus zugeordnet. 

Daten bedeutender Theoretiker, wie Opitz für das Barock oder Gottsched für die Auf- 
klärung, die zwar die Literatur ihrer Zeit entscheidend beeinflußten, bleiben jedoch der 
eingehenden Behandlung in einem Werk der Literaturgeschichte vorbehalten. 


Gattungsformen 


Die einzelnen Werke der Dichter müssen im Computer-Programm diesen drei Gat- 
tungsformen richtig zugeordnet werden: 


EPIK 
LYRIK 
DRAMATIK 


Die EPIK umfaßt die erzählende Dichtung, die nochmals unterteilt wird: 


Epos: Ursprüngliche Form erzählender Dichtung, die das Leben eines Volkes 
oder Helden in Versform wiedergibt (Höfische Klassik). 


Roman: Umfangreiche Prosa-Darstellung auf verschiedenen Handlungsebenen mit 
breit ausgeführten Passagen. Eine besonders wichtige Rolle im behandelten 
Zeitraum spielt der Entwicklungsroman (Erziehungsroman, Bildungsro- 
man), der den Reifeprozeß eines Menschen im Laufe seines Lebens ver- 
folgt. 
Beispiele: 
Goethe, »Wilhelm Meister« 
Keller, »Der grüne Heinrich«, 


Novelle: Sie berichtet in äußerst knapper, straffer Form, auf einer einzigen Hand- 
lungsebene, von einem ungewöhnlichen Ereignis (Wendepunkt) im Leben 
des Menschen. 

Beispiele: 
Kleist, »Michael Kohlhaas« 
Droste-Hülshoff, »Die Judenbuche«. 
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Erzählung: Ein Abschnitt des Lebens wird kurz, in schlichter, aber anschaulicher Spra- 
che beschrieben. 
Beispiel: 
Stifter, »Bunte Steine«. 


Kurzgeschichte, Märchen, Legende, Sage und Anekdote gehören ebenfalls zur EPIK. 
Sie seien der Vollständigkeit halber hier erwähnt, obwohl sie in diesem Programm 
nicht erscheinen. 


Die LYRIK vermittelt Gefühle, Empfindungen und Stimmungen in gebundener 
Form. Als Ausdrucksmittel dienen vor allem Vers, Reim und Rhythmus. 
Zur LYRIK zählen Ballade, Lied, Ode, Elegie, Hymne und Sonett. 


Ballade: Ursprünglich ein Tanzlied, heute ein Gedicht, das düsteres, unheimliches 
Geschehen widerspiegelt. Die Ballade vereinigt lyrische (Rhythmus), epi- 
sche (Erzählweise) und dramatische (Dialoge) Elemente. 

Beispiele: 
Goethe, »Erlkönig« 
Schiller, »Die Bürgschaft«. 


Sie spielt im aufgeführten Zeitraum eine bedeutende Rolle. 


Elegie: Ein Gedicht mit wehmütig-klagendem Inhalt. 
»Elegie«von Walther von der Vogelweide (Höfische Klassik) ist hier nicht 
nur Name des Werkes, sondern auch gleichzeitig Gattungsform. 


Auf dem Gebiet der DRAMATIK entstehen, insbesondere ın der Klassik, bedeutende 
Dichtungen. 


Drama: Es stellt eine spannungsreiche Handlung ın Dialog und Monolog dar, die 
auf der Bühne durch die schauspielerische Leistung unterstützt wird. Das 
klassische Drama gliedert sich ın 


— Einleitung 
— Mittelteil (Verwicklung, Höhepunkt, Krisis) 
— Entscheidung. 


Von den 3 Einheiten 


— der Zeit (Ablauf des Geschehens in 24 Stunden) 
— des Ortes (gleichbleibender Schauplatz) 


— der Handlung (Abstimmung der Nebenhandlungen auf eine Haupt- 
handlung) 


ist seit Lessing allein die Einheit der Handlung noch gültig. 
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Zum Drama gehören Tragödie und Komödie: 


Tragödie: Das Trauerspiel beinhaltet den Kampf des Helden gegen seine Leidenschaf- 
ten, die Umwelt oder das Schicksal und endet mit seinem Untergang. 
Beispiel: 
Schiller, »Maria Stuart«. 


Komödie: Das Lustspiel entlarvt mit Humor und Ironie menschliche Schwächen und 
löst so den Konflikt. 
Beispiel: 
Lessing, »Minna von Barnhelm«. 


Literaturverständnis 


»Literatur« leitet sich vom lateinischen Wort für »Buchstabe« (littera) ab. Aus den nur 
26 Buchstaben unseres Alphabets, die in zahllosen Kombinationen aneinandergereiht 
werden, entstehen Wörter, Sätze, Texte; eine kaum vorstellbare Fülle von Schrifttum. 
Wer sich die Mühe gemacht hat, sich einen kleinen Überblick zu verschaffen, will 
meist mehr erfahren. Vielleicht wünscht man sich, angeregt durch dieses Computer- 
Programm, weitere Informationen über eine Epoche oder das Leben eines Dichters. 
Eventuell wird man auch inspiriert, sich mit einem der angegebenen Werke näher zu 
befassen. Ziel dieses Programmes ist es, neben der Vermittlung von rein formalem 
Grundwissen Verständnis und Interesse für die deutsche Literatur zu wecken. 


Programmablauf 


Wer macht mit? 


Bei diesem Literatur-Test sind maximal 5 Personen zugelassen. Der Computer bittet 
um die Namen. Geben Sie aus Gründen des Datenschutzes nichts ein, also drücken Sıe 
lediglich die RETURN- Taste, so stört das den Computer nicht. Während des Tests 
werden Sie dann allerdings auch nicht »persönlich angesprochen«! Dies gilt nur für 
Solo-Spieler. Drängen sich mehrere um das Gerät, sollten Sie Ihren Computer schon 
mit irgend etwas füttern; wenigstens mit Ihrem Künstlernamen! Lassen Sie ıhn hun- 
gern, indem Sıe lediglich die RETURN-Taste drücken, so springt er nämlich direkt ins 
Menü. Sicher haben Sie schon »gehört«, daß alle Ihre Eingaben mit einem »Piep« quit- 
tiert werden. 


Wer die Wahl hat, hat die Qual 


Soll ein Dichter vorgegeben werden, dem Sie das richtige Werk zuordnen, oder wol- 
len Sie es lieber umgekehrt? 
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ee nn nn 


| GRUNDWISSEN: DEUTSCHE LITERATUR | 


GEGEBEN: GESUCHT: 
=1= DICHTER WERKE 
=2= WERK DICHTER 


GUNEB UENER GENE enBEn HERE MEMEE GEUEE Gin WRSEM GuNp dumme Um GAR GENE OHNE GEHEN WEHEN) GUNEEG GASÄHEEED MENGRD GEH GERD SEND GEHE GELB CAD CARE: GEMENS GENE GEEEED SUSE GENEED MESEEHE) GEMERD CREME GESEHN GHRMID GAEBUE 
nenne sun Anstr mue m Tiremetsn een ne nn abe mn am TER A na ee unten nn Eee nee a nr een ne rannte onen Bananen ann eg Sa anne Hr en anna nennt msn 


[ANZAHL DER VORGEGEBENEN DICHTER? 5] 


ee uontmnstunanummdesherseienkenntnk 


“ 1 EV IEL SEKUNDEN PRO AUFGABE WUENSCHEN 


nn 


ee erg 


Wünschen Sie sich einen Dichter, so drücken Sie einfach Taste 1. 

Wollen Sie herausfinden, wer was geschrieben hat, so tippen Sie auf die Taste 2. 

Sie müssen sich entscheiden, die anderen Tasten sınd blockiert. 

Sie können sich vorstellen, daß es einfacher ist, wenn nur 2 Dichter oder 2 Werke 
zur Auswahl stehen statt deren fünf. Geben Sie also nun den gewünschten Schwierig- 
keitsgrad ein. Je schwieriger Sie sich den Test gestalten, um so mehr Punkte können 
Sie erzielen; vorausgesetzt, Sie überfordern sich nicht. Schätzen Sie Ihre Fähigkeiten 
richtig ein, und verbessern Sie notfalls Ihr Grundwissen über die deutsche Literatur mit 
Hilfe der Tabelle »Ausgewählte Dichter und ihre Werke«. 

Wählen Sie abschließend noch die Ratezeit pro Frage oder übernehmen sie einfach 
die Vorgabe von 15 Sekunden. 

Hatten Sie Ihren Namen und/oder den von Mitspielern eingegeben, so werden Sie 
jetzt mit der in wechselnder Farbe blinkenden Aufforderung »LOS GEHT’S, (Name)!« 
in die Startlöcher komplimentiert. 

In jedem Fall werden 5 Werke und die dazugehörigen Dichter ausgewählt. Auf dem 
Bildschirm sehen Sie aber nur so viele, und in der Anordnung, wie Sie selber festlegten. 


Die Lösung 


Sie müssen nicht mehr eintippen als die den Werken oder Dichtern zugeordnete Ziffer. 

Je schneller Sie die richtige Zahl eingeben, um so mehr Punkte erhalten Sie. Erscheint 
der Balken mit der Inschrift »EINGABEZEIT ABGELAUFEN, so können Sie zwar 
noch Ihre Lösung eingeben, aber Punkte gibt es dafür nicht mehr! Die richtige Lösung 
wird in jedem Fall angezeigt. Sie können dennoch ruhig weiterspielen, denn dem Werk 
sind noch die Gattungsform und die richtige Epoche zuzuordnen. 
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GRUNDWISSEN: DEUTSCHE LITERATUR 


iv rn 
JOHANN WOLFGANG VON GDETHE 


WELCHE GATTUNG? 


[2 ] Lyrix 


| 5 | DRAMATIK 
____ BITTE EINE ZAHL EINGEBEN! 


Pluspunkte 


WELCHER EPOCHE IST 
DER ERLKODENIG 
ZUZUORDNEN, MARKUS? 
8. HOEFISCHE KLASSIK 
1. HUMANISMUS 
2. BAROCK 

. AUFKLAERUNG 
4. STURM UND DRANG 
3. KLASSIK 
5 ZWISCHEN KLASSIK UND ROMANTIK 
8 
Qo 


RO 
BIEDERME IER 
REALISMUS 


| BITTE EINE ZAHL EINGEBEN! 


a Tree nn ns 


Hier läuft keine Stoppuhr mehr im Hintergrund, und selbst wenn Sie im ersten Teil 
Pech gehabt haben sollten; hier sind noch ein paar Punkte für Sie übrig! Präzise gesagt, 
5 für die richtige Gattung und 15 für die Eingabe der passenden Epoche. 

Sicher wollen Sie nun Ihren Punktestand erfahren. Rufen sie ihn durch einen Tasten- 
druck ab. Er könnte folgendermaßen aussehen: 
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re meer ern Seen Seen Bent RETTET nn nt anne 


DOOO00000000000000000000000000000000000 
O0000000000000000000000000000000000000 


RUNDE : 3 REKORD : 195 PUNKTE 
MARKUS : 40 
BIRGIT s 1453 32 
WALTER : 195 61 
ANDREAS ı 27 1%] 
SUSANNE 2 ”) 1) 


MENUE = M * ENDE = E * WEITER = RETURN 


ee ee 


m eabannnn es ane > ern namen aba as sap arnnGe Ir anne Snheeen 6 ag Dänte ren On Sant en een nn Samen anna + Lasr unseren utnsannmnnen a seann > Hanns. 


Ganz rechts sehen Sie die Gesamtpunktzahl und links davon wieviel Punkte Sie in 
der soeben absolvierten Runde erreichten. Das Ergebnis ist von folgenden Faktoren ab- 


hängig: 


— Schwierigkeitsgrad (Wieviel Werke bzw. Dichter standen zur Auswahl?) 
— Zeitvorgabe (Wieviel Ratezeit gestanden Sie sich zu?) 
— Restzeit (Wie schnell tippten Sie die Lösungsziffer ein?) 


Veränderungen 


Sollten Sie nach einiger Zeit Ihr Wissen so erweitert haben, daß Ihnen dieser Test lang- 
weilig wird, so geben Sie einfach weitere Dichter und ihre Werke ein. 

»Neue« Dichter fügen Sie am Ende des Datenabschnitts »Dichter« an. Die chronolo- 
gische Reihenfolge spielt dabei keine Rolle. Die Reihenfolge der Werke ist bei der Da- 
teneingabe völlig frei, da die Dichter den Werken über die Kennzahl zugeordnet 
werden. 

Die Anzahl der Dichter und der von diesen verfaßten Werke ist nur durch die Spei- 
cherkapazität Ihres Computers und die steigende Einlesezeit bei großen Datenmengen 
begrenzt. Da die Dichterkennzahl 2-stellig ist, ergibt sich eine Begrenzung auf 99 Dich- 
ter. 

In den 4-stelligen Kennzahlen — vor jedem Werk — sind die Epoche, die Gattungs- 
form und der Dichter verschlüsselt. 


Die Epochen laufen von 0-9, 
die Gattungsformen von 1-3 
und die Dichter von 1-31. 
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Epochenüberblick 


Die Epochen sind zeitlich meist nicht exakt abgrenzbar; oft herrschen unterschiedliche 
Auffassungen. Die Übergänge sind fließend; manche Epochen überschneiden sich auch 
zeitlich oder laufen parallel (z.B. Klassik und Romantik; Biedermeier und Realismus). 
Daher werden in der folgenden Aufstellung die Epochenangaben nicht in Jahreszahlen, 
sondern auf das Jahrhundert gerundet wiedergegeben. 


Höfische Klassik (12./13. Jh.) 

Die Ritterdichtung entwickelte sich an Fürstenhöfen. Leitmotiv ist die Sage um den 
geheimnisvollen König Artus und seine Tafelrunde. Auf der Grundlage christlichen Le- 
bensgefühls und der Ideale des Ritterstandes (Ehre, Treue, Minne, Beständigkeit, Selbst- 
zucht) entstehen vollendete Werke (meist Kunstepen). Diese Epoche ist die erste 
Blütezeit der deutschen Dichtung. 


Humanismus (15./16. Jh.) 
Kunst- und Lebensauffassung der Antike gelten als Vorbild. Anstelle des Autoritäts- 
glaubens tritt kritische Forschung. 


Barock (17. Jh.) 

Das Barock ist durch starke Spannungen und den Gegensatz zwischen Lebensfreude 
und Vergänglichkeitsbewußtsein gekennzeichnet. Eine Fülle von Bildern und gesteiger- 
tes Pathos prägen die Sprache. 


Aufklärung (18. Jh.) 

Rationalismus (Bsp.: Lessing), Pietismus (Bsp.: Klopstock) und Rokoko (Bsp.: Wieland) 
sind die drei großen Strömungen der Aufklärung. Die Dichtung wendet sich an Ver- 
stand und kritisches Bewußtsein; sie setzt sich Belehrung und Besserung des Menschen 
zum Ziel und zeigt Harmonie und Lebensfreude. 


Sturm und Drang (Ende des 18. Jhs.) 

Grundthema der Dichtung ist der ungebändigte Freiheitsdrang der jungen Generation 
und ihre Auflehnung gegen die Herrschaft der Vernunft, gegen Konventionen und 
Standesvorurteile. Die sprachliche Gestaltung zeigt Gefühl und Phantasie, wirkt ur- 
sprünglich, lebendig und überschwenglich. 


Klassik (Wende vom 18. zum 19. Jh.) 

»Edle Einfalt und stille Größe« sind Kennzeichen antiker Kunst, dem Vorbild der Klas- 
sik. Es entstehen Werke, die in ihrer Ausgewogenheit, Gesetzmäßigkeit der Form und 
aufgrund der differenzierten Hochsprache als vollkommen gelten. Hauptthema ist die 
Entwicklung des Menschen zur edlen Persönlichkeit. Harmonie von Körper und Geist, 
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Freiheit und Menschlichkeit sind Ideale der Klassik. Diese Epoche ist die zweite Blüte- 
zeit der deutschen Dichtung. 


Romantik (1. Hälfte des 19. Jhs.) 

Sehnsucht nach der Vergangenheit, der Ferne und Unendlichkeit führt zur Auseinan- 
dersetzung mit anderen Epochen und Kulturen. Phantasie und Traum schaffen geheim- 
nisvolle und märchenhafte Welten. Grenzenloses Gefühl sprengt alle formalen und 
sprachlichen Gesetzmäßigkeiten der Dichtung. 


Biedermeier (1. Hälfte des 19. Jhs.) 

Maßwvolle Bescheidenheit, Beschränkung auf den engen, schlichten Wirkungskreis, 
Rückzug in die bürgerliche Idylle, Flucht in die Erinnerung sind Wesensmerkmale der 
Epoche, deren Lebensgefühl die Resignation ist. 


Realismus (19. Jh.) 

Neue wirtschaftliche und weltanschauliche Tendenzen führen zu wirklichkeitsbewuß- 
ter, diesseitsorientierter Lebenseinstellung und zu objektiver Wiedergabe der Realität. 
Charakteristisch sind der Sınn für Natur, Geschichte und Volkstum und die Einord- 
nung des Menschen in Staat und Gesellschaft. 
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Ausgewählte Dichter und ihre Werke 


DICHTER 


EPOCHE/WERK 


GATTUNG* 


Kennzahl 


Hartmann von der Aue 


Wolfram von Eschenbach 
Gottfried von Straßburg 
Walther von der Vogelweide 


Johann von Tepl 


Christoph von Grimmelshausen 


Gotthold Ephraim Lessing 


Friedrich Gottlieb Klopstock 
Christoph Martin Wieland 


Johann Wolfgang von Goethe 


Friedrich Schiller 


Johann Wolfgang von Goethe 


*E=Epik L=Lyrik D=Dramatik 
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Höfische Klassik 
Iwein 

Der arme Heinrich 
Parzival 

Tristan und Isolde 
Elegie 


Humanismus 
Der Ackermann aus Böhmen 


Barock 
Simplicissimus 


Aufklärung 

Minna von Barnhelm 
Emilia Galotti 
Nathan der Weise 
Der Messıas 

Agathon 


Sturm und Drang 

Die Leiden des jungen Werther 
Urfaust 

Götz von Berlichingen 
Prometheus 

Die Räuber 

Kabale und Liebe 

Don Carlos 


Klassik 

Iphigenie 

Egmont 

Torquato Tasso 

Faust 

Erlkönig 

Hermann und Dorothea 
Wilhelm Meister 

Die Wahlverwandtschaften 
West-östlicher Divan 
Dichtung und Wahrheit 


E 0101 
E 0101 
E 0102 
E 0103 
L 0204 


E 1105 


E 2106 


D 3307 
D 3307 
D 3307 
E 3108 
E>3109 


E 4110 
D 4310 
D 4310 
L 4210 
D 4311 
D 4311 
D 4311 


D 5310 
D 5310 
D 5310 
D 5310 
L 5210 
E 5110 
E 5110 
E 5110 
L 5210 
E 5110 
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DICHTER EPOCHE/WERK GATTUNG* 
Kennzahl 

Friedrich Schiller Der Taucher L 5211 
Die Kraniche des Ibykus L 5211 
Die Bürgschaft L 5211 
Das Lied von der Glocke L 5211 
Wallenstein D 5311 
Maria Stuart D 5311 
Die Jungfrau von Orleans D 5311 
Die Braut von Messına D 5311 
Wilhelm Tell D 5311 
Zwischen Klassik und Romantik 

Friedrich Hölderlin Hyperion E 6112 

Heinrich von Kleist Michael Kohlhaas E 6113 
Der zerbrochene Krug D 6313 
Das Käthchen von Heilbronn D 6313 

| Prinz Friedrich von Homburg D 6313 

Jean Paul Titan E 6114 
Romantik 

Novalıs Heinrich von Ofterdingen E 7115 
Hymnen an die Nacht L 7215 

Joseph Freiherr von Eichendorff Aus dem Leben eines Taugenichts E 7116 
Ahnung und Gegenwart E 7116 

F. T. A. Hoffmann Das Fräulein von Scudery E 7117 
Biedermeier 

Eduard Mörike Maler Nolten E 8118 
Mozart auf der Reise nach Prag E 8118 
Der Feuerreiter L 8218 

Adalbert Stifter Der Hochwald E 8119 
Bunte Steine E 8119 
Nachsommer E 8119 
Witiko E 8119 

Grillparzer Das goldene Vlies D 8320 
Ein Bruderzwist im Hause Habsburg D 8320 
Weh dem der lügt D 8320 

Annette von Droste-Hülshoff Das Geistliche Jahr L 8221 
Heidebilder L 8221 
Der Knabe im Moor L 8221 
Die Judenbuche E 8121 
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DICHTER EPOCHE/WERK GATTUNG* 
Kennzahl 


Realismus 
Heinrich Heine Deutschland. Ein Wintermärchen 
Georg Büchner Dantons Tod 

Woyzeck 
Gottfried Keller Der grüne Heinrich 

Die Leute von Seldwyla 
Conrad Ferdinand Meyer Das Amulett 

Gustav Adolfs Page 

Der Schuß von der Kanzel 
Gustav Freytag Soll und Haben 
Jeremias Gotthelf Die schwarze Spinne 

Uli der Knecht 

Uli der Pächter 
Friedrich Hebbel Judith 

Maria Magdalena 

Agnes Bernauer 

Die Nibelungen 
Theodor Storm Immensee 

Pole Poppenspäler 

Der Schimmelreiter 
Wilhelm Raabe Die Chronik der Sperlingsgasse 

Die schwarze Galeere 

Der Hungerpastor 
Theodor Fontane Die Brücke am Tay 

Irrungen, Wirrungen 

Effi Briest 

Der Stechlin 


Programmbeschreibung 


Zeile 115: 


Sie sorgt dafür, daß die erste Zufallszahl nach dem Programmstart wirklich immer ver- 
schieden ist. 


Zeilen 116 — 120: 


Da DW = 100 ist, werden die Werke auf WE$ (100) DIMensioniert, das heißt begrenzt; 
ebenso die Sperre H (100), die in diesem Programm Doppelnennungen verhindert. We- 
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gen der geringeren Anzahl der Dichter DI$ (50) genügt 50. Die Indizes gelten für die 
Daten dieses Programmes. Werden zusätzliche Werke oder Dichter eingegeben und da- 
bei die Grenzzahlen überschritten, so ist die DIMensionierung entsprechend anzupas- 
sen. Da der Stern auch mitzählt, muß der Index immer um 1 höher liegen als die 
betreffende Datenmenge. 


Zeile 130: 
POKE 53281,1 ist der »Weißmacher« für den Bildschirm-Hintergrund. 


Zeile 140: 


CHR$ (9) entriegelt die SHIFT-Taste, CHR$ (142) schaltet in den Großschrift-Modus, 
und CHR$ (8) verriegelt die SHIFT-Taste wieder. 


Zeile 145: 


In R = 53280 ist die Zahl für die Zelle des Bildschirm-Rahmens abgelegt. Da im Laufe 
des Programms die Rahmenfarbe mehrfach wechselt, erspart man sich so etwas 
Schreibarbeit. Aus eben diesem Grunde ist hier auch SZ = 58732 abgelegt, die Zahl 
für SYS. Die Position der nächsten PRINT-Ausgabe wird öfter gebraucht. Mit $S = 211 
wird die Spalte und mit Z = 214 die Zeile gePOKE:. 


Beispiel: 

Mit POKE S,3:POKE Z,5:5SYS SZ wird das folgende PRINT in Spalte 3 — dies ent- 
spricht einem PRINTTAB(3) — und Zeile 5 ausgegeben. Letzteres entspricht 5mal 
»CURSOR nach unten«, falls dieser vorher in HOME-Stellung gebracht wurde. 


Zeilen 180 — 240: 


Um Ihnen die Arbeit des Abtippens etwas zu erleichtern, arbeite ich mit Character- 
Strings. Im Commodore 64 Handbuch, Anhang F (Seiten 135 — 137) finden Sie die Ta- 
belle, die Ihnen die CHR$Codes näher bringt. 


BL$ = CHR$ (147) = Bildschirm löschen 

CL$ = CHR$ (157)= CURSOR nach links 

CR$ = CHR$ (29) = CURSOR nach rechts 

CO$ = CHR$ (145) = CURSOR nach oben 

FB$ = CHR$ (31) = Zeichenfarbe blau 

FS$ = CHR$ (144)= Zeichenfarbe schwarz 

FR$ = CHR$ (28) = Zeichenfarbe rot 

FG$ = CHR$ (30) = Zeichenfarbe grün 

RA$ = CHR$ (18) = RVS ON (negative Zeichenwiedergabe einschalten) 
RE$ = CHR$ (146)= RVS OFF (negative Zeichenwiedergabe ausschalten) 
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Die Steuerzeichen werden, wie wir ın Zeile 240 sehen, mit Hilfe der PRINT- 
Anweisung gesendet. 


Zeilen 275 — 360: 


CHR$ (113) beinhaltet einen Ball. In einer Schleife 40mal aneinandergereiht ergibt sich 
eine Zeile mit Bällen, die wir später noch brauchen werden. 
Auch die folgenden Zeichenketten sind sehr gefragt und werden daher schon hier 


festgelegt. 


Z2$ beispielsweise gibt den Text von Z1$ in Negativdarstellung wieder. 

TD$ beinhaltet in einem grünen Balken die Aufforderung »BITTE EINE BELIEBIGE 
TASTE DRÜCKEN«. 

RL$ ist die linke und rechte Begrenzung für ein Kästchen. 

LL$ erscheint später auf dem Bildschirm im unteren Viertel einer Zeile als Linie. 

T1$ ist zunächst eine Mittellinie, wird aber in der folgenden Zeile zur oberen Begren- 
zung eines Kästchens erweitert. 

T2$ ist die Titelzeile und T3$ die untere Begrenzung eines Kästchens. 

TTI$ faßt T1$- T3$ zum Titelkopf zusammen. 


Zeilen 410 — 500: 


Unterhalb des Titelkopfes wird mittels eines roten Balkens mit Inschrift um die Na- 
men der Test-Teilnehmer gebeten. 

Die Schleife von Zeile 420 — 500 gestattet die Eingabe von 5 Teilnehmern. Jeder ein- 
getippte Name wird ın der indizierten Variablen N$ (N) gesondert festgehalten, um 
später weiter verwendet werden zu können. Man könnte sagen, das Programm be- 
kommt dadurch seine »persönliche Note«. 

Drücken Sie aber lediglich die RETURN-Taste, geben Sie also ””” ein, dann springt 


das Programm sofort aus der Schleife und begibt sich zum nächsten Menüpunkt. 


Zeilen 520 - 610: 


Dieser Abschnitt beginnt mit einigen PRINT-Anweisungen, gefolgt von einem GET, 
damit wir 1 oder 2 eingeben können. Interessanter sind die Zeilen 580 und 590: Erin- 
nern Sie sich noch an Z1$ und Z2$? Hier blinkt nun die Aufforderung, eine Zahl ein- 
zugeben! 

Die Warteschleife bremst die Blinkgeschwindigkeit, und je 2mal CO$ (CURSOR 
nach oben) sorgt dafür, daß sich die beiden Zeilen überlagern und somit eine Zeile die 
andere wieder löscht (Blinkeffekt). 

Die Umwandlung eines Strings in eine Zahl erfolgt mehrfach in diesem Programm, 
da ich bei versehentlich falscher Eingabe keine REDO FROM START-Meldung erhal- 
ten möchte. Zeile 610 verhindert schließlich, daß unbrauchbare Eingaben akzeptiert 
werden. 
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Zeile 625: 


Hier treffen wir erstmals in diesem Programm auf eine Positionierungs-Anweisung. Er- 

innern Sie sich noch an die Zeile 145? Das nächste PRINT erscheint demnach in Bild- 

schirmzeile 13. Vorher gehen wir aber noch in das Unterprogramm, welches in Zeile 

2303 beginnt. GOSUB = GO to SUBroutine = GEHE ins UNTERprogramm. 
Diese Subroutine erzeugt den Piepston, der jede Eingabe bestätigt. 


Zeilen 630 — 680: 


POKE R,6 läßt den Bildschirmrahmen blau werden, falls Sie sich entschieden, Dichter 
auszuwählen. 

POKE 198,0:WAIT 198,1 löscht den Tastaturpuffer und wartet dann, bis ein Zeichen 
eingeschrieben wird. 

Etwa gleiche Wirkung hätte auch folgende Zeile: 650 GET ZW$:IF ZW$= ”” 
THEN 650. 


Zeilen 710-720: 


Diese Zeilen entsprechen einem INPUT mit Vorgabe. 

Wie Sie wissen, kann man diese Vorgabe auch folgendermaßen realisieren: IN- 
PUT’ Textvorgabe”;SE 

Um aber die Negativdarstellung und die Farbgebung zu implementieren, müßten 
commodore-eigene Steuerzeichen verwendet werden. Auch für die Vorgabe der Zahl 
15 würde man diese Zeichen benötigen. 

Das sähe so aus: 


INPUT" FREi1 538335"; SE 
3x CURSOR nach rechts ER L_ 4x CURSOR nach links 


2 Zeichen 


Allgemein gilt: Anzahl der CURSOR-Bewegungen nach rechts = 
Anzahl der Zeichen der Vorgabe +1. 
Anzahl der CURSOR-Bewegungen nach links = 
Anzahl der Zeichen der Vorgabe +2. 

Sehen Sie sich nun die hier leicht veränderte Zeile 715 an: 


PRINT;RE$;FS$;CR$;CR$;CR$;’15’;CL$;CL$;CL$;CL$;:INPUT SE 


Zeile 725: 


Wünschen Sıe nach einer Spielrunde eine Rückkehr in das Menü, so bewirkt diese Zei- 
le, daß die Daten nicht erneut eingelesen werden. 
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Zeile 760 — 1030: 


760-780: Festlegung der Gattungsbezeichnungen. 

820-910: Festlegung der Epochenbezeichnungen. 

950-970: Einlesen der Dichter mit Hilfe der READ-Anweisung. 
Dieses Einlesen wird erst beendet, wenn ein vorher festgelegtes Zeichen ge- 
lesen wird; in unserem Fall der Stern. Natürlich könnte dieses »Kenn«- 
Zeichen auch durch ein »Kenn«-Wort ersetzt werden. 

1010 - 1030: Einlesen der Werke. 


Zeilen 1070 — 1190: 


WX ist eine Zufallszahl, die durch die Anzahl der in den DATA-Zeilen aufgeführten 
Werke begrenzt wird. 
H ist die zweistellige Dichterkennzahl aus der vierstelligen Kennzahl, die jedem Werk 
vorangestellt ist. 
Sehen Sie sich die DATAs ab Zeile 2680 an! 
Dieser Wert wird als Index für H(H) verwendet. 
Auf diese Weise wird ausgeschlossen, dafl von einem bestimmten Dichter mehr als ein 
Werk ausgewählt wird. 

In den folgenden Zeilen werden nun die Hilfsvariablen erstellt. Sie enthalten die 
Kennzahlen des jeweiligen zufallsgewählten Werkes: 
E(V) = Epochenkennzahl dieses Werkes. 
G(V) = Gattungskennzahl dieses Werkes. 
D(V) = Dichterkennzahl dieses Werkes. 
A$(V) = Werk ohne Kennziffer. 

Mit Hilfe der Dichterkennzahl kann der zugehörige Dichtername ermittelt werden: 
DI$(D(V)). 

Da, wie wir hörten, jeder Dichter nur mit einem Werk vertreten ist, erhielten wır 
mit den 5 Werken auch 5 Dichter. Die Zeile 1190 sorgt übrigens dafür, daß es bei 5 
Dichtern und Werken bleibt. 


Zeilen 1230 — 1235: 


ZW ıst eine Zahl zwischen 2 und 5. Ihr aktueller Wert wurde ın Zeile 650 mit GET 
festgelegt. 

X ist eine Zufallszahl zwischen 1 und ZW. Dieses X fischt uns als Index des Dichter- 
bzw. Werke-Strings einen Dichter bzw. ein Werk heraus. 


Zeilen 1270 — 1360: 


Wir befinden uns nun im bereits angesprochenen »persönlichen« Teil unseres Pro- 
grammes. 
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Die erste Programmzeile sorgt dafür, daß nach Aufruf aller eingegebenen Namen 
wieder von vorne begonnen wird. 


1290: Bildschirm löschen und Druck des Programmkopfs. 

POKE 646,1+2 färbt die blinkende Aufforderung "LOS GEHT’S, (Name)” verschie- 
den ein (Schleife!). 

Den namentlichen Aufruf erledigt N$(NN). 

1340: Jeder Farbbalken bleibt 300 Zähleinheiten lang auf dem Schirm. 


Zeilen 1420 — 1660: 


Nach all diesen Vorarbeiten beginnt nun der eigentliche Literatur-Test. 

Die Zeilen 1420 - 1540 befassen sich mit der Anzeige eines Werkes und mehrerer 
Dichter. 

Die Programmzeilen 1550 — 1640 sind ähnlich aufgebaut. Sie zeigen aber einen Dich- 
ter und mehrere Werke an. Auf Grund der zahlreichen anderen Maßnahmen, die das 
Display freundlicher gestalten, bringt hier ein Dreieckstausch keinen echten Program- 
miervorteil. 


1435 und 1555: Werk/e und Dichter werden eingerahmt. 
1445 und 1570: AX und BX liefern einen Wert, der zusammen mit PRINTTAB( 
den/die Dichternamen bzw. das Werk oder die Werke zentriert auf den Bildschirm 


PRINTet. 


Zeilen 1700 — 1740: 


Der Faktor »Zeit« soll in unserem Test auch eine Rolle spielen: TI$ wird auf Null ge- 
setzt. RZ% = Restzeit in Form einer Ganzzahl (%=INTeger). Ist unsere restliche Rate- 


zeit abgelaufen, so zeigt uns dies Zeile 1730 mit dem inversen Schriftzug ”* * * 
EINGABEZEIT ABGELAUFEN x*x* x* ” an. 


Zeilen 1800 — 1860: 


Hier müssen Dichter und Werk richtig zugeordnet werden. Die der GET-Abfrage fol- 
genden 3 Zeilen sollen unsinnige Eingaben verhindern. Bei richtiger Eingabe wird in 
Zeile 1850 die errungene Punktezahl berechnet. Sie ist das Produkt aus einem empi- 
risch ermittelten Faktor, der Zahl der angezeigten Werke und der Rest-Ratezeit zum 
Zeitpunkt unserer Eingabe, dividiert durch das Quadrat der gewählten Maximal- 
Ratezeit in Sekunden. Die Verwendung möglichst vieler Variablen ermöglicht eine in- 
_ dividuelle Punktebewertung. 


1860: Natürlich werden wir, wer hätte es anders erwartet, mit 
”ssa9222 R ICH T 106 =9339@®@” gelobt. Dieses RICHTIG 
flackert, wıe den Zeilen 1860 und 1865 zu entnehmen ist, in den Farben des Re- 
genbogens. Zeile 1863 bewirkt die Überlagerung von Positiv- und Negativschrift 
und sorgt nach 8maligem Wechsel für den Fortgang des Programms. . 
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Zeilen 1880 — 1935: 
Nobody is perfect. Deshalb brauchen wir auch diese Zeilen: 


"DAS WAR LEIDER FALSCH! 
ES MUSS HEISSEN: ” 


In einem Kästchen wird die richtige Lösung eingeblendet. 
Damit wir Zeit haben, uns die richtige Lösung einzuprägen, geht es erst nach einem 
Tastendruck — Zeile 1935 — weiter. 


Zeilen 1955 — 2026: 


Erst einmal wird der Bildschirmrahmen gelb: POKE R,7. 

1960: Ein Rahmen wird »gezimmert«. 

1965: Werk und Dichter werden in diesen Rahmen geschrieben. 
1970: Es wird nach der Gattung gefragt. 

1980: Die 3 Gattungsbegriffe werden angeboten. 

1990: Aufforderung, eine Zahl (Z1$) einzugeben). 

1991: Sprung in das Unterprogramm: Bestätigung der Eingabe durch Piepston. 
2000: Wurde die Gattung richtig eingegeben, gibt es fünf Punkte. 
2005: Positionierung auf Bildschirmzeile 13. 

2010-2013: Mehrfarbig blinkende Bestätigung der richtigen Eingabe. 
2016-2021: Anzeige der richtigen Lösung bei Fehleingabe. 


Zeilen 2055 - 2115: 


Der Programm-Abschnitt Epoche ähnelt dem Abschnitt Gattung. Unterschiede finden 
Sie in der Farbgebung, im Text bei richtiger und falscher Eingabe sowie in der Anord- 
nung der Textelemente. 


Zeilen 2160 — 2290: 


2160: Warten, bis ein Zeichen im Tastaturpuffer ist. 

2161: Sprung ıns Unterprogramm. Rahmenfarbe türkis (cyan). 

2165: Bildschirm löschen. Drei Zeilen Bälle (BA$) mit der Inschrift ”PUNK- 
TESTAND’”. 

2170: Rundenzähler RD. 

2212: Berechnung der Gesamtpunktzahl durch Aufaddieren der Rundenpunkte 
PK(NN). Der Index NN bewirkt, daß die Punkte den einzelnen Spielern zuge- 
ordnet werden können. 

2213-2214: Ausdruck der Namen, der Rundenpunkte und Gesamtpunkte. 

2215-2218: Ermitteln der Rekordpunktzahl (Hi Score) und Ausdruck. 

2219-2220: Name und Punktestand des jeweiligen Spielers werden in Negativschrift 
an der richtigen Stelle der Spielertabelle durch Überlagerung eingeblendet. 

2222: Information über Möglichkeit der Rückkehr ins Menü, des Spielabbruchs und 
Weiterspielens. 
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2242 — 2290: Vorbereitungen für die nächste Spielrunde. Sprünge gemäß der vom An- 
wender in Zeile 2040 gemachten Eingabe. 


Zeilen 2303 — 2306: 
In diesem Unterprogramm wird ein Piepston erzeugt. 


S1 = 54272 = Basisadresse des SID (Sound Interface Device). 


POKE S1+24,15: Lautstärke einschalten. 24 = 1. bis 3. Stimme. 
15 = laut (0-15; leise > laut). 
POKRE S1+11,17: Ton einschalten. 11 = 2. Stimme. 
17 = Wellenform: Dreieck. 
POKE S1+7,207: 7 = 2. Stimme. 207 = Frequenz, Low-Byte. Note C 
POKE S1 +8,34: 8 = 2. Stimme. 34 = Frequenz, High-Byte. 5. Oktave 
POKE S1+13,240: Ton halten. 13 = 2. Stimme. 240 = 15 x 16. 
15 = laut. 
PO = 1 TO 50: Warteschleife für Tondauer. 
POKE S1+11,0: Ton ausschalten. 11 = 2. Stimme. 0 = aus. 


Wollen Sie diesen Piepston verändern, so sehen Sie sich im Commodore 64 Hand- 
buch, Anhang O+P (Seiten 155 — 159) die Tabellen an. 


Zeilen 2340 — 2630: 


Hier sind die Namen der Dichter eingegeben. Die Dateneingabe muß mit einem Stern 
in Anführungszeichen abschließen. Sie können natürlich auch ein anderes Daten- 
schluß-Zeichen verwenden. Ändern Sie dann aber unbedingt auch die Programmzeilen 
970 und 1030. 


Weitere Dichternamen können Sıe nach Zeile 2625 einfügen. 


Zeilen 2670 — 5000: 
Die erste Zeile erklärt Ihnen nochmal die 4stellige Kennzahl: 


Unter E steht die Epochen-Kennzahl (0 - 9). 
Unter G finden Sie die Gattungs-Kennzahl (1-3). 
Unter DI schreiben Sie die 2-stellige Dichter-Kennzahl (01-31). 


Die passende Dichter-Kennzahl erhält man, wenn man auszählt, an welcher Stelle in 
den DATAs der Dichtername steht. Maximal können 99 Dichter und eine beliebige 
Anzahl von Werken eingegeben werden. 

Ein Werk-Name soll, einschließlich Leerzeichen, weniger als 35 Zeichen umfassen. 

Kommt darın ein Komma oder Doppelpunkt vor, wie in Zeile 3490, so ist die Einga- 
be zwischen Anführungszeichen zu setzen. 

Die letzte Zeile lautet auch hier xxxx DATA ”x*”. 


(Gertrud und Michael Geipel) 
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1D REM KUH EEE EHIHR 


28 REM * # 
3B REM * DEUTSCHE LITERATUR * 
48 REM + - GRUNDWISSEN -— # 
#62 REM * * 


7B REM RUHE ER ERER REKEN 


85 REM COPYRIGHT 1985 BY 
98 REM MODERNE VERLAGS GESELLSCHAFT 
95 REM AUTOR: MICHAEL GEIPEL 


118 : 
115 X=1INT(-TD 
116 DWw=1B8 


128 DIM WEF&(CDW) „DIS(DW/Z) „H(DW) 

158 POKE 535281,1 

148 PRINT CHR$(Y) ;CHR$ (142) ; CHR$ (8) 

145 R = 53280: SZ = 587532: 5 = 211: Z = 


150 : 
168 REM ** STEUERZEICHENDEFINITIONEN #*%* 


188 BL$#= CHR$(147) 

192 CL$+= CHR$(157) 

2B8 CO$= CHR$(145) 

218 FB#= CHR$F(S1) 

228 FR+= CHR$(28) 

2358 RAt= CHR$(18) 

242 PRINT FS$;BL$ 

250 : 

26B REM ** WEITERE STRINGDEFINITIDONEN #*#* 

264 3 

265 FOR B=1 TOD 9: BAF=BAF+CHRFE (113): NEXT 

278 Ri F=CHR#E (532) +BAF+" RICHTIG 
"+BAS+CHRE$ (32) 

275 BAt="":FOR B=1 TO 48: BAF=BAF+RAF+CH 

RFt113)+REF:SNEXT 

2808 zZi$=" BITTE EINE ZAHL EINGEBEN 

| 


CR$= CHR$ (29) 
Cu$= CHR$ (17) 
FS#$= CHR$#(144) 
FG#+= CHR$ (38) 
REt= CHR$(146) 


298 Z2$=RAFt+21$+FSF+RE$ 
sa@ TD$=RAF+FG$+ " BITTE EINE BELIEBIGE 
TASTE DRUECKEN! "+FS$+RE$ 
315 RL$=CHR$(YB) +" 
"+CHR$ (98) 
s2B FOR LL=1TD 48:LL$=LL$+CHR$ (175) 2NEXT 
3521 FOR T1=1T0 38: TB$=TO#+CHR$ (99) NEXT 


66 


Deutsche Literatur (Grundwissen) 


338 T1$=CHRE# (176) +TBF+CHR$ (174) 

348 T2$=CHR$ (8) +" GRUNDWISSEN: DEUTSC 
HE LITERATUR "+CHRE (978) 

358 TIF=CHR# (173) +TBF+CHR$ (189) 

SAD TT$=-TI$SH+T2FH+TIJ$ 

378 : 

388 REM xuunnennaaee MENUE MER 
398 : 

4BB PRINT TT$ 

418 FRINT" "sRAS:FR$:" DIE NAMEN DER TES 
T-TEILNEHMER BITTE! "sRE$SFSF: PRINT 

428 FOR N=1 TO 5 


448 INPUT" "ıN$ (N) sGOSUB 2303 
46B IF N$(N)=""THEN 585 
478 NISCN)I=" LOS GEHT ’S, "+NF(NI+"!" 


A8B N2$(NI)=SNELN)+" HAT " 
498 FRINTCOFS:NSCLS,". " 


SOD NEXT 

595 PRINT BL$ITT$ 

52B PRINTTAB (46) "GEBEBEN: GESUCHT: "sP 
RINT LL$ 

538 PRINTCHR$ (32); RA$" =1="3RE$IFBSI" DI 
CHTER ";FS$; " "sFG$3 "WERKE"IFS$ 

540 PRINT 

559 PRINTCHR$ (32) ;RA$" =2="JRE$IFGSI" WE 
RK "sFS$;" "sFB$5 "DICHTER"; FS$ 


SsB FRINT LL$ 
5378 GET AU$ | 
588 FOR B =1 TOD 1BB: NEXT: PRINT Z1$;C0O$;C 


598 FOR B =1 TOD 1BB:NEXT:PRINT Z2$; CO$;C 


sUB AU=VAL (AUS) 

618 IF Au=1 OR AlU=2 THEN 625 

428 GOTO 578 

625 FOKE Z,15:5YS5 SZ :G0SUB 2583 

638 IF Au=1 THEN FPRINTRA$;FGS$3" ANZAHL D 
ER VORGEGEBENEN WERKE? ";REF,:GOTO 58 
648 FOKE R,&:PRINTRA$;FB$S," ANZAHL DER V 
ORGEGEBENEN DICHTER? "3RES$S;FSS} 

658 FRINT:POKE 198,B:WAIT 198,1:BET ZWSı 
FRINT TAB(3S5? ;C0O$;, COF; ZWw$ 

&S1 GOSUB 23853 

AuRB ZW=VAL (ZWE) 

88 IF ZW<=1 OR ZW=>& THEN 425 
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718 


PRINT:PRINT RAF;FR$;" WIEVIEL SEKUND 


EN PRO AUFGABE WUENSCHEN "3 


zıı 


712 
715 


PRINTRA$; " 
":RE$:CODFS 
PRINT RA$;FR$;" SIE?";RE$IFSF 
FRINT: PRINT; RE$; FS$ 3 CR$ 3 CR$S CRS$, "15" 


sCLF:CLFS:CLFICLF 


728 


INPUT SE:50SUB 2383: IF SE=B THEN PRI 


NT CO$; :G0OTO 728:PRINT L# 


725 
738 
748 
758 
768 
778 
788 
7978 
808 
818 
828 


IF WT$="M" THEN 1878 


REM x### VARIABLEN : GATTUNG #eaRHRR* 


B$(1)="EPIK" 
G$ (2) ="LYRIK" 
6$ (3) ="DRAMATIK" 


REM ##%* VARIABLEN : EFOCHE #raRHHH#%%# 


E$(B)="HOEFISCHE KLASSIK" 


8380 E$(1)="HUMANISMUS" 

84B E#(2)="BARODCK" 

850 EF (35) ="AUFKLAERUNG" 

868 E#t4)="STURM UND DRANG" 

8780 EFF (SI) ="KLASSIK" 

888 EF(Kb)="ZWISCHEN KLASSIK UND ROMANTIK 
878 E#t7)="ROMANTIK" 

928 EF(8)="BIEDERMEIER" 

91828 E$(9)="REALISMUS" 

9280 : 

95B REM ####x*%%# DICHTER EINLESEN #####%%* 
948 : 

958 DI=DI+i 

9&8 READ DI#(DI) 

97a IF DIES(DII<S>"*" THEN 950 

988 : 

99B REM werner WERKE EINLESEN #HHHRH#8% 
ı1u00 : 

1B1@ WE=WE+I 

1828 READ WE#S (WE) 

1858 IF WEF(WE)I<>"#" THEN 1918 

1040 : 

18580 REM ** ZUFALLSAUSWAHL : 
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WX=INT(RND{1) #(WE-III +1 
H=VAL (MIDFE(WEF(WX) „3,2)) 
IF H{H)=1 THEN 1878 
H(H)I=1 
Vv=V+1 
A=LEN (WEF(WX)) 
A$ (V) =RIGHTF (WEF (WX) „A-5) 
E(V)=VAL (LEFTFCWEF (WA) „,1)) 
GV) =VAL (MIDS$ (WES (WX) „2,1)) 
D(V)=VAL (MIDFE (WEF(WX) ,3,2)) 
BE (V)=DIE(D(V)) 
IF V <=6 THEN 1970 
REM ## ZUFALLSAUSWAHL : 

1 WERK ODER 1 DICHTER ##xx%%* 
x=INT(RND (1) #ZW) +1 
NM=NM+1: IF NM=>N THEN MN=1 


REM ####%% LDS GEHT'S Xena 
IF NN=>N-i THEN NN=8 

NN=NN+1 | 
PRINTBL$;TT$ 

FOR I=1 TO 4 

FOKE6546,1+2 

PRINT: IF I=5 THEN PRINT FS$; 
PRINTRA$; NI$ (NN) ;sRE$ 

IF LEN(N$(NN)) > THEN N2#=", 
N3S#=N#(NNI)+", " 

N1+=N# (NN) 

FOR U=1T0398: NEXT 

PRINTCO$; COF,FS$; 

NEXT I 

v=DB 

REM ** BILDSCHIRMANZEIGE Kuna 
REM #* 1 WERK — MEHRERE DICHTER #%##* 


"+N$ (N 


IF AU=1 THEN 1558 

POKE R,6:PRINT FG$; Ti$ 

PRINT CO$;RL$;RL$3 T3$5 C0O$; CO$ 

POKE S,15:POKE Z,4:5YS5 SZ: PRINT"WER 
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1445 
1450 
1460 
1478 
1488 
14908 
1500 


AX=LEN (AS (X) ) EAX=(38-AX) 7/2 
PRINTTAB(AX)FS$3 AS (X) 3 FG$ 

PRINT 

PRINTFB$; T1$ 
PRINTTAB(15) CO$; CO$; "DICHTER" 

FOR U=1 TO ZW 

PRINT CO$;RL$5 CO$: PRINTCHR$ (98) ;RA$ 


._u s UsCL$; N. H REF:COF 


1585 
151@ 
1515 
1520 
1538 
1540 
1544 

1545 
1546 
1558 
1555 
15648 


HTER" 


1578 
1588 
1598 
1608 
1618 
1620 


="30; 


1625 
1650 
1635 
1640 
1658 
1648 
1678 
1698 
16970 
1708 
1718 
1728 
1758 

rt 
1748 


BU=LEN (B$ (U) ) s BU=INT (6+ ( (32-BU) /2)) 
PRINTTAB(BU)FS$; B$ (U) 3; FB$} CO$ 
PRINTTAB (39) CHR$ (98) 

NEXT U 

PRINT FB$}C0$; T3$; FS$ 

GOTD 1668 


REM ** 1 DICHTER — MEHRERE WERKE %*% 


PRINTFB$; Ti1$ 
PRINT CO$;RL$;RL$; T3$53 CO$; CO$ 
POKE S,15:POKE Z,4:5Y5 SZ:PRINT"DIC 


BX=LEN (B$ (X) ) : BX=INT (64+( (32-BX) /2)) 
PRINTTAB(BX)FS$;B$ (X) ı FB$ 
PRINT:PRINT FG$; Ti$ 
PRINTTAB (15) C0$; CO$; "WERKE" 

FOR U=1TD ZW 

PRINTCO$3 RL$5 CO$: PRINTCHR$ (98) 3RA$" 
CL$;" =";RE$5CO$ 

AX=LEN (A$ (U) ) EAX=INT (4+( (34-AX) /2)) 
PRINTTAB(AX)FS$; A$ (U) 3FG$; CO$ 
PRINTTAB (39) CHR$ (98) 

NEXT U 

PRINT F6$5 C0$5 T3$; FS$ 

PRINT Z2$ 


8 

REM ##* ZEIT FUER LDESUNG et 
TI1$="BBOBOR" 

AB=B 

RZA=SE-TI/6B: IF RZ%<=B THEN RZ%=B 
IF RZ4<=B THEN PRINT COS; CO$; RAS; " 
EINGABEZEIT ABGELAUFEN! wuue " 

IF RZ = B THEN POKE 198,8:WAIT 198 


„1:AB=1 


1778 
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1788 REM *#* ABFRAGE DICHTER <=> WERK ##%* 

17980 : 

1888 GET EG$:EG=VAL (EG$) 

1818 IF AB=1 AND EG= @9 THEN 1888 

1828 IF AB=1 AND EG=>U THEN 1888 

183580 IF EG {=8 OR EG =>U THEN 1728 

1831 GOSUB 23083 

1858 IF D(EG)=D(X) THEN PRINT BL#:PK (NN) 

= INT € (251#ZW#+RZ%) /SET2) 

1856 R2$=RAF+RI1$+RE$:RI=DQ 

1857 POKE Z,2:5Y5 SZ 

185B IF DIEG)=D(X) THEN FOR B =1 TOD 1BB: 

NEXT:PRINT Ri#:POKE 646, INT(R3) +2 

1853 R3=R3+1:POKE Z,2:5Y5S SZ:FOKE R,RS:l 

F R3=>97 THEN 1898 

1855 IF D(EG)=D(X) THEN FOR B =1 TO 188: 

NEXT:PRINT R2$:PRINTTAB{1S)NIF:GOTO 1857 

1888 FRINT BLF:TT$; FR$,RAF 

1881 FOKE 5,4:FOKE Z,4:5YS5 SZ:PRINT N3$: 

PRINT 

1882 PRINTTAB(4) "DAS WAR LEIDER FALSCH!" 

1883 PRINT:PRINTTAB (4) "ES MUSS HEISSEN: " 

1898 AX=INT ((38-LEN(AF(X))) /Z) +2 

1988 PRINT:PRINT FS#; T1$3 RL$3 RLF, T3$, CO$ 

CO; CO; FG$: PRINTTAB(AX) A$(X) 

1928 PRINT:PRINTTABtITPDIFS$;"V O N" 

1925 BX=INT ((38-LEN (B&£(X))) /2) +2 

1938 PRINT Ti$F;RL$; RL$; T3$; COF; COF,CO$ : 

FRINTTAB{BX)FB$: B# (X) :PRINT 

19535 FPRINTTD$:POKE 198,8:WAIT 198,1:POKE 
198,8: PRINTBL$; FS$; TT$: PRINT 

1940 : 

1958 REM *#* ABFRAGE DER GATTUNG rar % 

1951 : 

1955 POKE R,7 

19&B PRINT T1$;RL$; RL$ I RL$, RUF, RLF$, TIF: P 

OKE S,AX:FOKE Z,6:5Y5 SZ 

1965 PRINT FG$;A$(CX) :PRINTTAB(STIFRES" V 
OO N":PRINTTAB(4B8+BX)FBF,B#+(X) 

1978 FOKkE 5,4:FOKE Z,13:5YS 5Z:PRINT FS# 

s "WELCHE GATTUNG ?":PRINT LL#$ 

1988 FOR I=1 TO 3:PRINTTAB (A)RA$; I;sREF; " 
"sGFtI):PRINT:NEXT I 

1998 PRINT RA$;FRF: ZIFS:REFSFSF: POKE 198, 

B:WAIT 198,1:GET GT#:GT=VAL (GTF) 
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179791 GOSUR 2383 

2808 R3=B :IF GT=G(X) THEN FK{NN)I=PK (NN) 
+53 

2885 POKE Z2,13:5Y5 52 

2B18 IF GT=G6G(X) THEN FOR B =1 TOD 1BB:NEX 
T:FRINT Ri$: POKE 646, INT(R3) +2 

2812 R3=R3+1:POKE Z,13:5YS SZ:FPOKE R,R3: 
IF R5=>7 THEN 2821 

2815 IF GT=GtX) THEN FOR B=1T01B8:NEXT:P 
RINT R2#:GOTD 2085 

221& FRINT" NEIN! DIES IST DIE RICHTIGE 
LOESUNG: " 

2221 FPOKE S,8:FOKE Z,14+1G(X) *#2):5Y5 SZ: 
PRINT RA$:G$(G(X));" "sREF 

2822 POKE Z,22: 5YS SZ:PRINT TD# 

2825 FPOKE 198,B8:WAIT 198, 1:PRINTBL*# 

2026 GOSUB 23823 

2050 : 

2848 REM *#* ABFRAGE DER EFPOCHE Ha %* 
2850 : 

2855 POKE R, 4 

2840 PRINTTAB(SIFS#L "WELCHER EPOCHE IST" 
: FRINT 

2865 PRINTTAB(SIFGF,AFCX) SsFS$ :PRINT | 
2866 PRINTTAB(S) " ZUZUORDNEN" Ss N2E," 7":PR 
INTLL$ 

208782 FOR I=BTD 97:PRINT I;CLF#,"."sE$CI)EN 
EXT I 

20875 FOKE Z,19: SYS SZ:PRINT LLF;FR$,RA$F 
ı ZISSREF,FSF 

2888 POKE 198,B:WAIT 198,1:GET EF$:EP=VA 
L(EP#$) 

2081 GOSUB 25383 

2188 IF EF=E(X) THEN FRINTTAB(S3S) "GUT GEM 
ACHT'!"=PK{NND=PK (NN) +15:G60T0 2118 

2184 FPRINTCHR$E (19) 


2105 FRINT" LEIDER FALSCH! 
"zPRINT 
21086 PRINT" ICH ZEIGE IHNEN DIE RIC 
HTIGE" 


2187 PRINT" LOESUNG"; N2$;". & 

2118 POKE S,3:POKE Z,8+(E(X)): SYS 5Z 
2115 PRINT RA$SFRE,E$(E(X))," ";RE$FSFS$ 
21538 FOKE Z,19:5YS SZ:PRINT LL$;TD$ 
2140 : 


/2 


2158 
2151 
2168 
2161 
2165 


08; SPC(8);," 


2178 
2188 
32)" 
2198 
2212 
2213 
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REM #*#* PUNKTESTAND FHRHHHHHHEREn 


POKE 198,@:WAIT 198,1 

GOSUB 2383 :POKE R,3 

PRINT BL$;FR$; BA$; BA$; BA$; FS$; CO$; C 
PUNKTESTAND " 
RD=RD+1 
PRINTTAB (83) "RUNDE: 
PUNKTE" 

PRINT LL$ 

PT (NN) =PT (NN) +PK (NN) 
FOR H=1 TO N-1:PRINTTAB (3) N$ (H) 5: PR 


"RD; :PRINTTAB( 


INTTAB (25); "2"; INT(FKCHIDI 3 

2214 PRINTTAB (SZ) FR$,INT (FTCH I); FS$:PRIN 
T 

2215 IF PT(H) >PFTCH-DD THEN RK=FT (MH) 

2217 NEXT 

2218 POKE 5,18:POKE Z,4:5Y5 5Z:PRINT"REK 
ORD : "3; INT(RK) 

2219 FOKE 5,3:POKE Z,(2Z#NN-1)+6:5Y5 SZ:P 
RINT RA; N# (NN) ;REF 

2228 POKES,33: POKEZ, (Z#NN-1) +6: 5Y55Z:PRI 
NTRAF;FRF, INTEPTENND )5CL$" "REF:PK(NN)=QO 
2221 FOKE Z,16:5Y5 SZ:PRINT T1$; RL$3 T3$ 


2222 
NUE 

2250 
2248 
2241 
2242 
2250 
2278 
2288 
2298 
2308 
2521 
2582 
25853 
2584 


POKE S,1:FOKE Z,17 »5Y5 5SZ:FRINT"ME 
M* ENDE = E * WEITER = RETURN" 
PRINT:FRINT TD$ 

FPOKE 198,8:WAIT 198,1:6ET WT$ 

GOSUB 238053 | 
Rr=5: IF AlU=2 THEN RR=4:FPOKE R,RR 

IF WT$="E" THEN END 

FORI=1TD0 DW:H(T)=B: NEXT: I=Q 

IF WT$="M" THEN 5085 

U=8:60T0 1870 


REM * UNTERFROGRAMM: EINGABE-TON * 


51=54272 
POKE 51+24,15:POKE 51+11,17:POKE 51 


+7,287:POKE 51+8,354 


2585 


FPOKES1+153,24B8:FOR PO0=1T058: NEXT:POK 


E Si+11,B:POKE Si 24,8 


258& 
253807 
2518 


RETURN 


REM DATEN DICHTER 


73 


Deutsche Literatur (Grundwissen) 


23528 : 


2348 
2558 
2568 
2578 
25808 
2598 
2408 
2410 
2420 
2458 
2440 
2458 
2460 
2470 
2480 
2498 
2588 
2518 
2528 
2538 
2548 
2545 
2558 
2568 
2578 
2588 
25978 
26508 
2618 
2628 
2629 
2658 
2640 
2658 


2660 : 


26708 
2680 
2698 
2708 
2718 
2720 
27358 
2740 
2758 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HARTMANN VON DER AUE 

WOLFRAM VON ESCHENBACH 
GUTTFRIED VON STRASSBURG 
WALTHER VON DER VOGELWEIDE 
"JOHANN VON TEPL (AUCH: SAAZI" 
CHRISTOPH VON GRIMMELSHAUSEN 
GOUTTHOLD EPHRAIM LESSING 
FRIEDRICH GOTTLIEB KLOPSTOCK 
CHRISTOPH MARTIN WIELAND 
JOHANN WOLFGANG VON GOETHE 
FRIEDRICH SCHILLER 

FRIEDRICH HOELDERLIN 
HEINRICH VON KLEIST 

JEAN PAUL 

NOVALIS 

JOSEFPH VON EICHENDORFF 

E. T. A. HOFFMANN 

EDUARD MOERIKE 

ADALBERT STIFTER 

FRANZ GRILLPARZER 

ANNETTE VON DRDSUE EL SE 
HEINRICH HEINE 

GEORG BUECHNER 

GOTTFRIED KELLER 

CONRAD FERDINAND MEYER 
GUSTAV FREYTAG 

JEREMIAS GOTTHELF 

FRIEDRICH HEBBEL 

THEODOR STORM 

WILHELM RAABE 

THEODOR FONTANE 


DATA" «" 


REM #* DATEN UND WERKE DER DICHTER 


REM 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


E6GDI 
BıBi 
B1ıBi 
B182 
2183 
0204 
1105 
2106 
3507 


IWEIN 

DER ARME HEINRICH 
PARZIVAL 

TRISTAN UND ISOLDE 
ELEGIE 

DER ACKERMANN AUS BDEHMEN 
SIMPLICISSIMUS 
MINNA VON BARNHELM 


3158 
3148 
3158 


DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


3307 
3587 
3128 
3189 
4118 


4318 
4318 
4218 
45311 
45311 
4311 
3318 
3518 
3318 
518 
3218 
3118 
3118 
3118 
3218 
311@ 
3211 
Szi1l 
3211 
Sz1l 
511 
Ssil 
3511 
3511 
3511 
6112 
6115 
6513 
6515 


6515 


6114 
7115 
7215 
7116 


7116 
7117 
8118 


Deutsche Literatur (Grundwissen) 


EMILIA GALOTTI 

NATHAN DER WEISE 

DER MESSIAS 

AGATHON 

DIE LEIDEN DES JUNGEN WER 


URFAUST 

GOETZ VON BERLICHINGEN 
PROMETHEUS 

DIE RAEUBER 

KABALE UND LIEBE 

DON CARLOS 

IPHIGENIE 

EGMONT 

TORQUATO TASSO 

FAUST 

ERLKDENIG 

HERMANN UND DOROTHEA 
WILHELM MEISTER 

DIE WAHLVERWANDTSCHAFTEN 
WEST-DESTLICHER DIVAN 
DICHTUNG UND WAHRHEIT 
DER TAUCHER 

DIE KRANICHE DES IBYKUS 
DIE BUERGSCHAFT 

DAS LIED VON DER GLOCKE 
WALLENSTEIN 

MARIA STUART 

DIE JUNGFRAU VON ORLEANS 
DIE BRAUT VON MESSINA 
WILHELM TELL 

HYPERION 

MICHAEL KOHLHAAS 

DER ZERBROCHENE KRUG 

DAS KAETHCHEN VON HEILBRO 


PRINZ FRIEDRICH VON HOMBU 


TITAN 

HEINRICH VON OFTERDINGEN 
HYMNEN AN DIE NACHT 

AUS DEM LEBEN EINES TAUGE 


AHNUNG UND GEGENWART 
DAS FRAEULEIN VON SCUDERY 
MALER NOLTEN 
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3168 


DATA 


PRAG 


51708 
5188 
3198 
5288 
3218 
5228 
3225 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


HABSBURG 


3238 
3248 
3250 
3268 
3278 
5288 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ERCHEN 


3290 
3300 
331@ 
332@ 
3338 
3340 
3358 
3360 
3378 
3380 
33970 
3395 
3400 
3418 
3428 
3430 
3435 
3448 
3458 


GASSE 


SAs0 
53478 
3480 
3470 
3500 
3518 
be] 71 17) 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8118 


8218 
8119 
8117 
8119 
8119 
8328 
8320 


8528 
8221 
8221 
8221 
8121 
9122 


93253 
95323 
97124 
9124 
9125 
9125 
7125 
9126 
7127 
9127 
7127 
9328 
7328 
9528 
7328 
7129 
9129 
97129 
9158 


9138 
7150 
9231 


"71531 IRRUNGEN, 


9131 
9131 
” .y" 


MOZART AUF DER REISE NACH 


DER FEUERREITER 

DER HOCHWALD 

BUNTE STEINE 

NACHSOMMER 

WITIKO 

DAS GOLDENE VLIES 

EIN BRUDERZWIST IM HAUSE 


WEH DEM DER LUEGT 

DAS GEISTLICHE JAHR 
HEIDEBILDER 

DER KNABE IM MOOR 

DIE JUDENBUCHE 
DEUTSCHLAND. EIN WINTERMA 


DANTONS TODD 

WOYZECK 

DER GRUENE HEINRICH 

DIE LEUTE VON SELDWYLA 
DAS AMULETT 

GUSTAV ADOLFS PAGE 

DER SCHUSS VON DER KANZEL 
SOLL UND HABEN 

DIE SCHWARZE SPINNE 

ULI DER KNECHT 

ULI DER FAECHTER 

JUDITH 

MARIA MAGDALENA 

AGNES BERNAUER 

DIE NIBELUNGEN 

IMMENSEE 

POLE FOPPENSFAELER 

DER SCHIMMELREITER 

DIE CHRONIK DER SPERLINGS 


DIE SCHWARZE GALEERE 
DER HUNGERPASTOR 

DIE BRUECKE AM TAY 
WIRRUNGEN" 
EFFI BRIEST 

DER STECHLIN 


a 
Die Steigerung im Englischen 


BE mich ADJEcTIvE? 


Programm-Telegramm 


© Erlernen der Steigerung durch sequentielle Wahl oder Zufallsauswahl engli- 


scher Adjektive. 
© Wahlweises Ausfüllen von ein bis drei Lücken. 
® Überprüfung der richtigen Schreibweise bei selbst eingegebenen Adjektiven. 
© Nach Übungsende Ausgabe einer individuellen Lernliste auf dem Bildschirm. 


Steigern Sie Ihre Kenntnisse! 


Bevor Sie ın das Computerprogramm einsteigen, können Sıe hier Ihre Kenntnisse über 
die Steigerung der englischen Adjektive und Adverbien steigern oder zumindest etwas 
auffrischen. 
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Germanisch oder romanisch? 


Wie man weiß, gehört Englisch zu den germanischen Sprachen. Es kennt daher die 
synthetische oder germanische Art der Steigerung durch Anhängen von -er oder -est an 
die Grundform. 

Die analytische oder romanische Steigerung durch Vorsetzen von more oder most er- 
innert daran, daß bereits die Römer in England waren. Sie hinterließen dort nicht nur 
den Hadrianswall, die nach Kaiser Hadrian benannte Mauer, sondern auch sprachliche 
Spuren. 

Nachhaltiger beeinflußten allerdings die Normannen, die im Jahre 1066 mit Wilhelm 
dem Eroberer ins Land kamen, die englische Sprache. So finden wir heute neben einem 
alten germanischen Wort häufig ein Synonym französischen Ursprungs. 


Eine Silbe 


Die einsilbigen Wörter sind oft germanischen Ursprungs. Es gilt daher die Faustregel: 


Beispiel: 

Positive: great 
Comparative: greater 
Superlative: greatest 


Natürlich gibt es Ausnahmen. Strict, einsilbig, aber romanischer Herkunft, wird mit 
more und most gesteigert. 


Drei und mehr Silben 


Adjektive romanischer Herkunft steigert man meist durch Voranstellen von more und 
most. 


Beispiel: 
im:por:tant (3 Silben : = Silbentrennung) 


more important 
most important 


Da der sprachliche Ursprung vieler Wörter heute nur schwer erkennbar ist, gilt die 
Faustregel: 


Drei- und mehrsilbige Adjektive werden romanisch gesteigert. 
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Zwei Silben 


Da gibt es noch die zweisilbigen Adjektive, die eine Zwischenstellung einnehmen. 
Auch hier zunächst die Faustregel: 


Zweisilbige Adjektive, die auf -y, -ow, -er oder -le enden, steigern mit -er und -est. 
Hierbei spielt es keine Rolle, welchen Ursprungs das Wort ist. 

Beispiel: 

noble (2 Silben) 


nobler 
noblest 


Rechtschreibregeln 


Wie Sie am obigen Beispiel bereits erkennen, genügt es nicht, einfach -er oder -est anzu- 
hängen. 
Bei der Schreibung ist folgendes zu beachten: 


1. Endkonsonanten werden nach kurzem, betontem Vokal verdoppelt. 


Beispiel: 
big — bigger — biggest 


2. End -e entfällt: 


Beispiel: 


nice — nicer — nicest 


Beispiel: 
happy — happier — happiest 
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Unregelmäßige Steigerung 


Diese unregelmäßigen Formen sind in das Computerprogramm eingebaut: 


better 
worse 


much 

little 
farther farthest 
nearer nearest 


Man kann sie sich leichter merken, wenn man sie, wie hier geschehen, nach positi- 
vem/negativem Sinninhalt geordnet lernt. 


Alternativformen 
Beachten Sie auch diese Alternativformen (! = Erläuterung, nicht Übersetzung): 


good / well (Adverb!) 

bad / badly (Adverb!)/ill (krank) 
(viel) much / many (viele) 
(Entfernung!) nearest / next (Reihenfolge!) 
(räumlich!) farther / further (örtlich + übertragen!) 

farthest / furthest (selten!) 


Eingabe 


Adverbien werden wie Adjektive gesteigert. Die synthetische Steigerung (more, most) 

wird aber hier bereits bei zweisilbigen Wörtern nahezu ausschließlich angewandt. 
Sollten Sie bei der Eingabe der Daten Schwierigkeiten haben, so sehen Sie ın einem 

Grammatikbuch nach. Geben Sie dann notfalls von der tatsächlichen Sılbenzahl ab- 

weichend 

1 ein, wenn mit -er/-est gesteigert wird, und 

3 wenn durch Voranstellen von more und most gesteigert wird. 


Programmablauf 


Nach dem Laden und Starten des Programms wird der Bildschirmrahmen gelb und das 
Feld weiß. Das erste Bild sieht folgendermaßen aus: 
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a —————Öä—6—66e Te vr 


COMPARISON 


Tr u rennen nn mn an rn en 


[i] ı sar 

[2 _] 2 GAPS 

L3_] 3 Gars 

GAP AT ... 

[2 _] POsıTıvE | 
[5 _] COMPARATIVE 

[| &_] SUPERLATIVE 


GERMAN MEANING 


Geben Sie eine Zahl zwischen 1 und 7 ein. Ihre Eingabe wird durch einen Piepston 
quittiert. 

Nun werden Sie gefragt, welche Lektion Sie wünschen. 0-9 wird angeboten, wobei 
0 bedeutet, dafS der gesamte Wortschatz abgefragt wird. Hierbei kann es durchaus vor- 
kommen, daß sich ein Adjektiv wiederholt, nämlich dann, wenn ein und dasselbe Wort 
in verschiedenen Lektionen eingegeben wurde. 

Das 3. Bild sehen Sie als Bildschirmfoto zu Beginn dieses Kapitels. Wählten Sie Num- 
mer 3 (EIGENE EINGABE), so müssen Sie zunächst das Adjektiv eintippen, welches 
Sie steigern wollen. Es hat keinen Sinn, etwas Unsinniges einzugeben, denn der Com- 
puter überprüft, ob sich das betreffende Wort in seinem Speicher befindet und akzep- 
tiert die Eingabe nur dann, wenn dies der Fall ist. 

Wählten Sie 1 oder 2, so sucht der Computer für Sie ein entsprechendes Adjektiv aus 
und bietet es Ihnen zum Steigern an. Seine Wahl wird bei Modus 1 vom Zufall be- 
stimmt, während im Modus 2 die Daten in der gespeicherten Reihenfolge präsentiert 
werden. 

Nun geben Sie die Lösung ein, die an die Stelle gehört, wo der Cursor gerade blinkt. 
Beachten Sie bei der Eingabe der deutschen Bedeutung, daß dieses Programm weder »ß« 
noch Umlaute kennt. Das Wort »früh« sähe also folgendermaßen aus: FRUEH. 

Sie können Ihre Eingabe mit Hilfe der INST/DEL-Taste verbessern. INSTant 
DELete heißt »sofort löschen«. 

Achten Sie aber darauf, daß Sie diese Taste nur ganz kurz drücken. Sie sollten auf 
diese Weise nicht die Zeile verlassen. Ebenso sollten Sie nicht die GRSR-Taste (Cursor) 
verwenden! 

Nachdem Sie die Lösung blau eingetippt haben, drücken Sie kurz die RETURN- 
Taste. Jedes Antippen dieser Taste bewirkt die Ausgabe der richtigen Lösung und einen 
Sprung des Cursors zur nächsten Lücke. 
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Sind alle Lücken ausgefüllt, so können Sie Ihre Leistung betrachten. Rote Wörter 
sind Fehleingaben, grüne hingegen markieren richtige Lösungen. Die Vorgaben wer- 
den in schwarzer Schrift angezeigt. In einem Kästchen steht, daß Sie sich mit Hilfe der 
RETURN-Taste die Lösung zeigen lassen können und mit Q das Programm verlassen. 
Ein blinkender roter Balken fordert Sie auf, die Leertaste zu drücken. Bevor Sie dies 
tun und zum nächsten Adjektiv-Set kommen, sollten Sie sich noch kurz über Ihren Lei- 
stungsstand informieren. Unterhalb der Blinkanzeige sind die Anzahl Ihrer Versuche, 
die von Ihnen erreichte Punktezahl sowie die Note, welche Sie aufgrund Ihres gegen- 
wärtigen Leistungsstandes erhalten würden, angezeigt. 

Tippen Sie nun auf die Leertaste, und das nächste Adjektiv-Set erscheint. Genauge- 
nommen muß es kein Adjektiv-Set sein, denn auch Adverbien können gesteigert wer- 
den. Ist die Übung zu Ende, weil Sie Q eintippten oder der Datenvorrat verbraucht 
ist, so erscheint auf dem Monitor eine abschließende Übersicht. Sie könnte folgender- 
maßen ausssehen: 


Bee ee er Te es ee in er 


3 _ SET/S OF ADJECTIVES 
15 FILLED P/S 
12 CORRECT INPUT/S 
3 WRONG INPUT/S 
YDUR MARK: 2 


=# LEARN THE RED’ ADJECTIVE FÜRMS: 


(ont sat erben nennen HERE EnSEEEIEE Ener Some OTSEETTnnEnInberEe Samen RER EnSDEAETITE IT GENERELL Ense LEEITEnETT EST En Ten eher Teen palbEe er Denon brennen ernennen 


COLD 
COLDER 
COLDEST 


Mn a er 


Sollten Sie, wie in unserem Beispiel, mehr richtige Eingaben bestätigt bekommen als 
Steigerungsübungen angezeigt werden, so hatten Sie im Menü sicher zwei oder drei 
Lücken gewählt. Halt, Sie sehen natürlich nichts! 

Ihre Fehlerauflistung erscheint erst auf Tastendruck. Drücken Sie also ganz kurz die 
Leertaste! Sie sehen nun jene Adjektiv-Sets, in denen Sie einen Fehler gemacht hatten 
und werden aufgefordert, die in Rot wiedergegebenen Formen zu lernen. Dieser letzte 
Teil ist wesentlicher Bestandteil des Lernprogramms, und wenn dieses Programm wiırk- 
lich zur Verbesserung Ihrer Leistungen beitragen soll, dürfen Sie auf keinen Fall diese 
letzte Bitte Ihres Computers ignorieren. 
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Selbstverständlich können Sie sich diese Liste auch auf Ihrem Drucker ausgeben las- 
sen. Leider ist sie dann nicht dreifarbig (Vorgabe = schwarz, richtige Eingabe = grün, 
falsche Eingabe = rot), sondern ın der Tabelle wird vor die zu lernenden Formen ein 
schwarzer »Ball« gesetzt. Die Liste könnte beispielsweise so aussehen: 


LEARN THE MARKED (8) ADJECTIVE-FORMS OF UNIT 8 


TERRIBLE 
POPULAR 
ELEGANT 
MODERN 
aTıDY 
YDUNG 
»FEW 
LITTLE 
sCLEVER 
18 MUCH 

11 sHEALTHY 
12 sPOLITE 
13 sCoSsY 


SONO UPÜN» 


MORE TERRIBLE “MOST TERRIBLE SCHRECKLICH 
MORE POPULAR MOST POPULAR BELIEBT 
MORE ELEGANT MOST ELEBANT ELEGANT 
sMORE MODERN MOST MODERN MODERN 
sTIDIER TIDIEST sSDRDENTLICH 
YOUNGER YOUNGEST JUNG 

FEWER FEWEST WENIGE 
LESS = LEAST WENIG 
®CLEVERER ELEVEREST KLUG 

sMORE MOST sVIEL 
sHEALTHIER HEALTHIEST sBESUND 
MORE POLITE MOST POLITE sSHOEFLICH 
COSIER sCOSIEST sGEMUETLICH 


Sollten Sie versehentlich die Leertaste gedrückt haben, ohne daß Ihr Drucker einge- 
schaltet war, so erhalten Sie die Meldung: DEVICE NOT PRESENT ERROR IN 
1695, was ins Deutsche übertragen heißt, daß Ihr Gerät (= Drucker) nicht eingeschaltet 
war. Keine Panik, Sie können durch direkte Eingabe von GOTO 1500 ohne Datenver- 
lust wieder in das Programm einsteigen. 

Selbst wenn Sie nach diesem Einstieg aus einem unerfindlichen Grund Ihren Drucker 
wieder nicht eingeschaltet hatten, können Sie Ihre Daten retten, wenn Sie die Meldung: 


FILE OPEN ERROR IN 1695 mit der Eingabe von CLOSE 4 im Direktmodus 


beheben. 

Programmbeschreibung 

10 - 90: Titel, Copyright, Verfasser. 

110: W sollte etwas größer als die Zahl der in den DATA-Zeilen abgelegten 
Adjektiv-Sets sein. 

120: Dimensionierung: 
VE$(W) ıst für die Grundform des Adjektivs reserviert. 
SI(W) wird die Silbenzahl aufnehmen. 
GE$(W) erhält die deutsche Bedeutung zugewiesen. 
VM$(W,4) wird alle auf dem Bildschirm ausgegebenen Adjektiv- 
Formen speichern. 
VH(W) vermeidet Wiederholungen bei der Zufallsauswahl der Da- 
tensätze. 

130: S = Soundchip-Startadresse. 

140: Eine Zufallszahl wird erzeugt. Sie bewirkt, daß bei jedem Start die fol- 


gende Zufallszahl in Zeile 950 verschieden ist. 
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150: 
160: 
200 — 240: 
320: 
321: 
330: 
340: 
350: 
360: 
370-371: 
380: 
420 — 490: 
500 — 510: 
520 —- 530: 
560 — 591: 
592 —- 593; 
610 — 625: 
751 - 754: 
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Der Bildschirmrahmen wird gelb, der Hintergrund wird weiß 
gePOKE.t. 

SHIFT entriegeln, Großschrift einschalten und SHIFT wieder 
blockieren. 

Die verwendeten Steuerzeichen- und Farbvariablen wurden bereits im 
Programm »Deutsche Literatur« besprochen. 

Das 40mal aneinandergereihte kJ (CHR$ (175)) ergibt einen Strich. 
Hier entsteht ein feiner Mittelstrich 9 (CHR$ (99)) von 38 Zeichen 
Länge. | 
Achten Sie darauf, daß Sie wirklich T0$ und nicht TO$ eingeben. 
T1$ sieht so aus: 1. Die Winkel sind CHR$ (174) und CHR$ (176). 
Programmtitel COMPARISON mit linker und rechter Begrenzung 
(= CHR$ (98)) wird zusammengesetzt. 

Dies ıst T3$: LI. Die Winkel sind CHR$ (173) und CHR$ (189). 
TT$ ergibt folgendes Bild auf dem Schirm: 


rm 


T5$ ıst der Balken, der auffordert (T4$), eine Zahl einzutippen. 

TS$ produziert einen roten Balken mit dem eingeschriebenen Text: 
LEERTASTE DRUECKEN. 

Die indizierte Variable G$ () enthält das Angebot des ersten Menüs. 

Das komplette Menü, einschließlich Titel und Wartetaste, wird auf den 
Bildschirm gebracht. 

Absicherungen gegen Fehleingaben und Sprung in das Unterprogramm 
PIEPSTON. 

Die ın SE$ gespeicherte Wahl des Anwenders 

1 = Zufallsauswahl der Adjektive, 

2 = eingespeicherte Reihenfolge der Adjektive, 

3 = eigene Eingabe eines Adjektives, 

wird später noch gebraucht. 

Mit Hilfe dieser zwei Zeilen entsteht eine Blinkschrift. 

Nur nach Eingabe der Ziffern 1, 2 oder 3 geht es weiter. 

Wenn SE = 3 ıst, werden die folgenden beiden Zeilen übersprungen, 
und über Zeile 625 wird das Unterprogramm PIEPSTON abgearbeitet. 
Ist SE = 1 oder 2, so wird das Unterprogramm LEKTIONSWAHL an- 
gesprungen. 

Einlesen der Daten. Der Asterix schließt das Einlesen ab. Wurden je- 
doch keine Daten eingelesen, d.h. steht B noch auf 1, dann erfolgt ein 
Sprung ın den Programmteil MELDUNG: UNIT EXISTIERT 
NICHT. 


785 — 812: 
840: 

940: 

945: 

950: 

970 - 975: 
1040: 

1050: 

1080 — 1100: 
1140 — 1190: 
1220 — 1260: 
1270: 

1275: 

1280 — 1310: 
1320 — 1321: 
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Die Bildschirmmaske wird auf den Schirm gebracht. Hier werden auch 
die Inhalte von G$ (4) bis G$ (7) wieder verwendet. 
Dies ist ihr Inhalt: 


POSITIVE (Grundstufe) 
COMPARATIVE (1. Steigerungsstufe) 
SUPERLATIVE (Höchststufe) 


GERMAN MEANING _ (deutsche Bedeutung) 

Die Übersetzung der PRINT-Anweisung lautet: 

»Ein Druck auf die RETURN-Taste zeigt die Lösung an.« und 

»Mit Q kann man die Übung abbrechen.« 

Der Cursor geht in HOME-Stellung, d.h. in das linke obere Eck des 
Bildschirms. | 

Wenn SE=2 (sequentielle Wahl), dann muß der Programmteil 
945 —- 1030 übersprungen werden. 

Wenn SE=3, dann wird ab Zeile 2020 das Unterprogramm EIGENE 
EINGABE abgearbeitet. 

Es bleibt nur noch SE=1 übrig. Hier wird die Zufallsauswahl der Ad- 
jektive getroffen. 

VH (I) vermeidet Wiederholungen. 

Z zählt hoch, falls der Anwender SE auf 2 setzte. So wird in den Zeilen 
1080 — 1110 ein Datensatz nach dem anderen umgespeichert. 

Diese Programmzeile sorgt für ein Ende der Übung, wenn alle Daten 
ausgegeben wurden. 

Umspeichern eines Datensatzes (Adjektive) zur weiteren Verwendung. 
Die Lücken — 1 bis maximal 3 — werden zufallsgesteuert ermittelt. 
G zählt die Runden. D (H) vermeidet eine Doppelbelegung. 

Die vorgegebenen Adjektivformen und die Lücken (für letztere dient 
ein Punkt als Platzhalter) werden auf dem Bildschirm plaziert. 

In dieser Zeile beginnt die Schleife, die dazu beiträgt, daß INPUT, das 
ist die Anwendereingabe, genau ın die richtige/n Lücke/n gesetzt wird. 
POKE 211,18 entspricht einem PRINTTAB (18) oder einem PRINT 
SPC (18). In POKE 214,2 * Y+4 wird die Zeile ermittelt: 4 Zeilen wer- 
den für die Titeleinblendung benötigt. Zwischen jedem Eintrag sorgt ei- 
ne Leerzeile für bessere Übersichtlichkeit; daher 2*Y. 

Wenn DH (Y)=0, so bedeutet dies, daß auch die zugehörige Stringvaria- 
ble V$ (Y) »leer« ist. Deshalb wird das Schleifenende (Zeile 1370) ange- 
sprungen. Andernfalls (Zeile 1310) wird eine Eingabe (INPUT) 
verlangt. 

Die Länge der Eingabe und die des Lösungsadjektivs werden ermittelt. 
Falls die Zeichenzahl der Eingabe größer als die des gefragten Adjektivs 
sein sollte — diese Lösung wäre natürlich falsch — dann wird ein Leer- 
string erzeugt, der die ursprüngliche Eingabe mit Blanks überschreibt 
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1340 +1350: 
1344 — 1349: 
1360: 

1400 — 1415: 
1420 — 1430: 
1440 — 1450: 
1460: 

1480: 

1510 —- 1570: 
1580 — 1585: 
1610 — 1650: 
1660 — 1690: 
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und auf diese Weise dafür sorgt, daf neu eingegeben werden kann, ohne 

daß störende Wortreste auf dem Bildschirm sichtbar bleiben. Ein starres 

Überschreiben mit Leerzeichen könnte den Cursor — unerwünscht — 

in die nächste Zeile rutschen lassen. 

Bei richtiger Lösungseingabe durch den Anwender wird diese grün 

überschrieben. RG zählt die richtigen Lösungen. 

Alternativlösungen. 

Bei falscher Lösungseingabe wird die Eingabe des Anwenders rot über- 

schrieben. 

Nach jedem Durchlauf erscheint im unteren Teil des Bildschirms die 

Leistungsanzeige. 

— Die Anzahl der Versuche ergibt sich aus der Summe falscher (F) und 
richtiger (RG) Eingaben. 

— Die Punktezahl entspricht der Menge der richtigen (RG) Eingaben. 

— FF ist die Note, die nach oben mit der Zahl 6 begrenzt werden muß. 

Die untere Begrenzung ist notwendig für den Fall, daß der Anwender 

null Fehler haben sollte. In Zeile 1409 wird F (I) auf 1 gesetzt. Das ist 

nötig, um bei Eingabe einer falschen Lösung das betreffende Adjektiv 

erneut anbieten und bei Abschluß der Übung auflisten zu können. Ein 

Blick auf Zeile 1615 erklärt die obige Maßnahme. 

Blinkanzeige. | 

Variablen werden auf Null gesetzt. 

Bei Übungsende Sprung in die Leistungsanzeige. 

Sprung zum nächsten Durchlauf. 

Die gePRINTete Anzeige gibt bei Übungsende oder vorzeitigem Ab- 

bruch die Zahl der 

— Adjektiv-Sets 

— ausgefüllten Lücken 

— richtigen Eingaben 

— falschen Eingaben 

— und die Note an. 

Nach einem Tastendruck (TS$) werden wir aufgefordert, die rot mar- 

kierten Adjektivformen zu lernen. Mit Hilfe von zweimal Cursor nach 

oben (CO$) überlagert der letzte Schriftzug den vorangegangenen. 

Anzeige aller Adjektiv-Sets, bei denen eine Fehleingabe gemacht wurde. 

Sie sind im zweidimensionalen Feld VM$ (I,Y) enthalten. 

GET YN$ fragt, ob Sie die Liste ausgedruckt haben wollen. Wenn 

YN$= N, dann ist das Programm beendet (END). Bei Eingabe eines be- 

liebigen anderen Zeichens, einschließlich Leerzeichen, kommen Sie, 

wenn der Drucker bereit ist, zur nächsten Abfrage: TASTE 

DRUECKEN (TS$). 


1696 — 1716: 


1735 — 1740: 


1790: 
1800: 
1810: 
1830: 
1840: 
1845: 


1850: 


1860 — 1880: 
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Mit OPEN 4,4:CMD4 werden die folgenden PRINTs auf den Drucker 
umgeleitet. 

Die Ausgabe wurde auf einem EPSON FX-80 mit Görlitz-/nterface ge- 
testet. Wegen des einfachen Aufbaus dürfte es aber auch mit anderen 
Druckern keine Schwierigkeiten geben. 

Den »Ball« in Zeile 1696 + 1705 erhalten Sie mit SHIFT + Q (im 
Großschrift-Modus). In der Schleife von 1700 — 1716 werden die Adjek- 
tive des zweidimensionalen Feldes VM$ (I,Y) gelesen. Damit eine Ta- 
belle entsteht, wird zunächst die Stringlänge ermittelt (LF). Dieser 
»Adjektiv«-String kann eine Farbinformation (rot oder grün) enthalten. 
Diese Information verlängert den String um ein Zeichen. Auf dem Bild- 
schirm ist dies nicht sichtbar, bringt aber im Ausdruck unsere Tabelle 
in Unordnung. Daher sınd die Maßnahmen in den Zeilen 1705 — 1710 
notwendig. 

In Zeile 1705 wird das erste Zeichen (=Farbinformation) entfernt, falls 
der ASCII-Code 28 (=Zeichenfarbe rot) ist. Es wird durch einen »Ball« 
ersetzt. 

In Zeile 1706 wırd das erste Zeichen ersatzlos entfernt, falls es den 
ASCII-Code 30 (=Zeichenfarbe grün) hat. 

Die Anzahl der Leerzeichen (Space = SPC) und der Zeichen des Adjek- 
tivs soll addiert immer 18 betragen. Die Menge der SPCs wird daher in 
TB durch Subtraktion gewonnen. 

IF TB<1 THEN TB=1 brauchen wir, um kein negatives TB zu erhal- 
ten bzw. bei längeren Adjektiven einen Abstand zwischen den Wörtern 
sicherzustellen. 

TB=1:IF I=>9 then TB=0 ist nötig, um eine Verschiebung der Tabel- 
len zu vermeiden, wenn die Ordnungszahlen zweistellig werden. 

Die romanische Steigerung braucht kaum Platz. Es muß lediglich die 
Grundform H$ mit der Textkonstanten MORE bzw. MOST verkettet 
werden. Auf diese Weise entstehen die zwei noch fehlenden Formen 
Komparativ und Superlativ. 

Die Länge R der Grundform H$ wird ermittelt. 

In R1$ steht der letzte Buchstabe. 

Der vorletzte Buchstabe ist in M2$ abgelegt. 

Die beiden letzten Buchstaben werden in R2$ gespeichert. 

L1$ ist die Grundform ohne den letzten Buchstaben. 

Adverbien, die auf LY enden, werden romanisch gesteigert. Die Silben- 
zahl SI wird daher auf 3 gesetzt. 

Endet die Grundform auf Y, so wird IER bzw. IEST an die Grundform 
gehängt. 

Hier wird geprüft, ob das Adjektiv auf OW, ER oder LE endet; wenn 
ja, wird germanisch gesteigert. 
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1890: 
1895 — 1896: 
1900 — 1920: 
1940 — 1960: 
1990: 

1995: 
2002 — 2006: 

2012 - 2014: 
2020 — 2130: 
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Diese Zeile befaßt sich mit der Regel: Auslautendes E entfällt. 
Konsonantenverdoppelung bei bestimmten Vokalkombinationen wird 
ausgeschlossen, d.h. U=0. 

Die Vokalkontrolle wird später eventuell für die Konsonantenverdop- 
pelung gebraucht. 

Die Prüfung auf Konsonanten sorgt im Verbund mit der positiven Vo- 
kalkontrolle, deren Ergebnis in U abgelegt wurde, für die Verdoppe- 
lung des Konsonanten. Zeile 1945 schließt jedoch die Verdoppelung bei 
bestimmten »zweistelligen« Buchstabenkombinationen aus. Die Sterne 
sind Platzhalter für 3 weitere Kombinationen für den Fall, daß sich beı 
bestimmten Adjektiven fehlerhafte Bildungen zeigen sollten. 


v$ (2) = H$ + R1$ +”ER” 
Komparativ = Grundform + letzter Buchstabe + ER 
BIGGER = BIG + G + ER 


Bei negativem Ergbnis der Kontrollschleifendurchläufe (wenn U=0), 
wird die Steigerung ohne Konsonantenverdoppelung durchgeführt. 

U muß für den nächsten Durchlauf wieder auf Null gesetzt werden. 
Falls eine Adverbform, die unregelmäßig gesteigert wird, aus der 
DATA-Zeile gelesen wurde, wird hier die richtige Form erzeugt. 
Unterprogramm PIEPSTON: Zunächst wird die Lautstärke voll, d.h. 
auf 15 geschaltet. Mit POKE S+ 11,17 wird der Ton eingeschaltet. Dann 
kommt die Frequenz LO, anschließend HI. Diese Lautstärke muß in 
der nächsten Zeile gehalten werden. Eine Schleife bestimmt die Länge 
des Tons. Der Ton wird wieder ausgeschaltet; anschließend wird die 
Lautstärke auf Null gesetzt. Mit RETURN geht es zurück ins Haupt- 
programm. Wer den Ton verändern möchte, schlägt am besten im 
Commodore 64 Handbuch, Anhang P, S. 158-159 nach. 

Das Unterprogramm EIGENE EINGABE ermöglicht es dem Anwen- 
der, selbst ein Adjektiv auszuwählen, mit dem er üben möchte, statt 
dies dem Zufallsgenerator zu überlassen. Damit aber kein Unsinn einge- 
geben wird, muß hier geprüft werden, ob das betreffende Wort bereits 
ım Speicher ıst. Verläuft die Prüfung negativ, so wird MM$ ausgegeben: 
DIESES WORT IST NICHT GESPEICHERT! Natürlich besteht bei 
der Eingabe jederzeit die Möglichkeit, das Programm zu verlassen, in- 
dem man Q (=QUIT) eingibt. MN$ ist die Textkonstante, die uns Mel- 
dung erstattet, falls ein bestimmtes Adjektiv im Laufe unserer Übung 
bereits eingegeben wurde. So sollen Wiederholungen vermieden wer- 
den. Zeile 2090 sorgt dafür, daß die Textausgabe immer an einer be- 
stimmten Stelle erfolgt. Die eigentliche Prüfung auf Übereinstimmung 
findet ın den Zeilen 2050 — 2080 statt. 
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2530-2560: Das Unterprogramm LEKTIONSWAHL gestattet, eine bestimmte 
Lektion (UNIT) herauszugreifen und nur diese zu üben. 

2610-2660: Hier wird gegebenenfalls die Meldung, ob eine im vorangegangenen 
Unterprogramm gewählte Lektion nicht existiert, ausgegeben. Die Prü- 
fung dieses Tatbestandes findet in Zeile 753 im Programmteil ADJEK- 
TIVE EINLESEN statt. Beachten Sie die regenbogenfarbige 
Blinkanzeige. Die Farben zaubert POKE 646,E +3 hinein! 

3020-5000: Der Datensatz wird folgendermaßen eingegeben: 

xx%xX DATA Lektionszahl, englisches Adjektiv, Silbenzahl, deutsches 
Adjektiv 

Beispiel: 

3410 DATA 5,SHORT,1,KURZ 

Die letzte Zeile muß immer so aussehen: 

xxxx DATA 1,” *”,1, x” 


(Michael Geipel) 


1D REM KUREN RER 
2@ REM * * 
Ss@ REM * DIE STEIGERUNG * 
40 REM * IM ENGLISCHEN * 


s@Q) REM * *+ 
QD REM FREE KERKEIRKIERR 
78: 


82 REM COPYRIGHT 1985 BY 
85 REM MODERNE VERLAGS GESELLSCHAFT 
7@ REM AUTOR: MICHAEL GEIPEL 


11B W =108 

128 DIM FW) „VEFtW ,SI(W „GEFtW „VM#(W,4 
I „VHIW 

132 5 = 54272 

1408 X = INT(-TD 

158 FOKE 535288,7:FOKE SSz8l,1 

1&B8 FRINTCHRE (9) ; CHR$ (142) ;s CHRF# (8) 

178 : | 

188 REM *#x* STEUERZEICHEN DEFINITIONEN # 
190 : 

208 COF=CHRE (145): CUF=CHR# (17) 

218 CLF=CHRE (157): BL$=CHR#(147) 
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22B FSF=CHR$ (144): FR#=CHR#$ (28) 

2350 FG$=CHRF$ (532) 

240 RA$=CHR#E (18) : REF=CHR$ (146) 

258 : 

268 REM *#** WEITERE STRINGDEFINITIONEN * 
278 : 

s2B FOR LL=1T0 48: LL$=LL$+CHR$ (175) : NEXT 
321 FOR T1=1T0 38: T3#F=TOF+CHR$ (99) NEXT 
3358 T1$=CHR$ (176) +TB$+CHRE (174) 

5408 T2F=CHRE$ (98) +FGF+" COMPA 
RISON "+FS$+CHRF$ (98) 

3358 T3SF=CHRE (173) +TAOF+CHRE (189) 

356B TT$=T1i$+T2$+T5$ 

37B T4F=CHRE (31) +" HIT NUMBER 
KEY "+F5$ 

371 TS5$=RAF+TAF+REF 

Ss8B TSF=RAF+FRE+" HIT SPACE 
BAR "+-FS$+RE# 

3980 : 

aB0B REM *#** MENUE: LUECEE/N RAR RERRER 
405 3: 

418 PRINTBL#:;FS# 

428 G$(1)="1 GAP" 

430 G$(2)="2 GAPS” 

440 G$(3)="35 GAPS"" 

4,50 G$(A)="POSITIVE" 

478 G# (5) ="COMPARATIVE" 

488 G$ (6) ="SUPERLATIVE" 

499 G#(/)="GERMAN MEANING" 

Sa@ FRINT:FRINT TT# 

sai FOR U=1 TO 7:FRINT" ";RA$:" "sCL$;U; 
CL$;" "sREF$," "sG$tU) :PRINT 

s@2 IF U=3 THEN PRINT FG#," GAF AT ..."; 
FS#$:PRINT 

s@3 NEXT U 

>85 FOR C=i1 TO 18B:NEXT:PRINT T4$; CO, CO 
$ 

SB& GET D# 

387 FOR C=1 TOD 1BB:NEXT:FRINT TSF; C0O$#, CO 
$ 

318 D=VAL (D#) 

328 IF D=B OR D=>8 THEN 595 

350 GOSUB 2812 

340 : 

55a REM #** MENUE: ZUFALL / SEBUENTIELL 
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Jos 3 

560 PRINT BLF:FRINT TT$:PRINT 

578 PRINT" 1 = RANDOM SELECTION":PRINT 
58B FRINT" 2 = SEQUENTIAL ORDER" :PRINT 
585 PRINT" 3 = OWN INPUT" 

398 FRINT:PRINT 

71 GET SE$ 

>72 FOR C=1 TO 1BQ@:NEXT:PRINT T4$: CO$#; CO 
$ 

573 FOR C=1 TOD 1BB:NEXT:FRINT TS$:COF;CDO 
$ 

Ham SE=VAL (SEF) 

“ia IF SE=3S THEN 625 

415 IF SE=1 DR SE =2 THEN GOSUB2B12:GOSU 
B 2538:G0T0 825 | 
s28 GOTO 591 

625 GOSUB 2812 

u530 : 

‚ua REM x##* ADJEKTIVE EINLESEN xurnuaar%* 
10 : 

751 B=B+1i 

752 READ UT,VE#(B) „SICB) „GEF (B) 

75535 IF VEFtB)=-"*" AND B=1 THEN 2620 

54 IF VE£tB)="#" THEN B=B-1:G0TD 785 
755 IF UN=B THEN 751 

756 IF SE<>S AND UN<>UT THEN 752 

757 GOTO 751 

7/60 : 

778 REM ##* BILDSCHIRM-MASKE #RURKRRRRRR 
798 : 

785 FRINT BL$:FRINT:FPRINT TT$ 

8sua0 FOR U=4 TO 7:PRINT CHR$(32);6GF(U);": 
"PRINT 

8180 NEXT U 

811 PRINTCHR$ (3513 


PRINT Ti$;CHR$(978);" RETURN = SOLUTI 
a = QUIT PROGRAM ";CHR$ (98), T35$ 
PRINT FS$;CHR# (19) 


REM #** ZUFALLSAUSWAHL DER ADJEKTIVE 
IF SE=2 THEN 1848 

IF SE=3 THEN 2820 

I=INT(RND(1)*B) +1 

IF VH(I)=1 THEN 958 
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975 VH(D=1 
798 V=V+1 


1228 
1818 
1828 
1258 
1948 
1250 
10850 
1078 
1075 
1288 
1098 
1108 
1118 
1128 
113580 
1155 
11480 
11580 
11680 
11780 
1188 
11978 
12080 
1218 
1215 


1521 


GDOTO 1288 


REM #** SEQUENTIELLE AUSWAHL #uHrr%%* 
Zz=1+1:1=7 
IF Z=>B+1 THEN 1518 


REM ** EIN ADJEKTIV-SET UMSPEICHERN 


VE(1)=VEF(]) 
SI =51I(]J) 
V$(4)=GE$(I]I) 
GOTO 1735 


REM ** ZUFALLSAUSWÄAHL DER LUECKEN #* 
IF D=>4 THEN DHtD-FP=1:6G0TD 1228 
FOR Y=1 TOD 

A=INT(RND(1)x*4) +1 

IF DH(A)=1 THEN 1168 

DH (A)=1 

NEXT Y 


REM ** BILDSCHIRMANZEIGE ##%#XxRr%% 


G=6+1 

FOR Y = 1 TO 4:VM$(G,Y)=VE(Y) 
FOKE211,18:FOKE 214,2%*Y+4:5Y5 587532 
IF DH(Y)=B THEN FRINT V$(Y):GOTD 12 


PRINTTAB(18) "." 

NEXT Y 

FÜORY=-17T04 

FPOKE 211,18:POKE 214, 2#*Y+4:5Y5 5875 


IF DH(Y)=B THEN 1570 
PRINTCHR$ (31) 3: INPUT W$:PRINTFS$3;3 :6 
2218 

IF WE=CHR$ (52) THEN 1318 

L1= LEN(WF) :L2=LEN (VE (Y)) 

IF L1-L2=>B THEN FOR U=1T0(L1-L2+2) 


:LZ$=L2Z$+CHR$ (32) :NEXT U 


1540 
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IF W£=V$(Y) THEN PRINT COD$#; :VM$(6G,Y 
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I)=FGF+HV£(Y) :PRINTTAB(18) VM$(G,Y)s FS$; 

1342 REM #** ALTERNATIVLDESUNGEN #r#HHH%% 
u IF WE="NEXT" THEN WE="NEAREST":GOTO 
eye WE="WELL" THEN WF="GOOD":GOTO 15 


40 
1346 


IF WE="BADLY" DR WE="ILL" THEN W$=" 


BAD":GOTO 1548 


1347 IF WE="MANY" THEN WE="MUCH":GOTO 153 
40 

1548 IF WE="FURTHER" THEN WE="FARTHER":G 
0OTO 1348 

1347 IF WE="FURTHEST" THEN W$="FARTHEST" 


:GOTO 13548 


1350 


IF WE=VE(Y) THEN FRINT LZ#:RG=R6G+1: 


FRINT:GOTO 1578 


1568 


PRINT CO$; : VM$(G,Y)=FR&+V$(Y) PRINT 


TAB (18) FR$; VMF(G,Y);sFS#$; LZ#:F=F+1: PRINT 


13708 
13808 
1400 
1405 
G; 
1406 
=& 
1407 


NEXT Y 
PRINT:PRINT:LZ$=CHR#$ (32) 
POKE 214,208:5Y5 58732 
PRINT" TRIES:";F+RG3;3" SCORE: ";R 
FF=INT(F#1B/ (F+RG) I): IF FF>& THEN FF 


IF FF=B THEN FF=i 

PRINT" MARK: "FF 

IF F=F1i THEN F(D>1 

FOKE 214,18:5Y5 58752 

Fi=F 

FOR C=1 TD 188: NEXT: FRINT TSF, CO$;C 


FOR C=1T0 180: NEXTEPRINT" 
"sC0$;C0$ 

GET HH$: IF HH$="" THEN 1410 

FOR U=1 TO 4:DH(U)=D:NEXT U 

IF HH$="Q" THEN GOSUB 2012: V=B+1 

IF V=>B THEN 1510 

GOTO 785 


REM #** LEISTUNGSANZEIGE KHARRRRaRRr 


PRINT BL$:PRINT:PRINT TT$:PRINT 
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15355 PRINTTAB(15)G:PRINTTAB(16)CO$;" SET 
/S OF ADJECTIVES" 

1548 PRINTTAB(13) RG+F:PRINTTAB (16) CO$;, " 
FILLED GAP/S" 

1558 FRINTTAB(13FI RG:PRINTTAB (15) CO$;" CO 
RRECT INPUT/S" 

1568 PRINTTAB(13S)F:PRINTTAB(16)CO$; " WRO 
NG INPUT/S" 

1578 PRINT: PRINT" YOUR MARK: ";FF 

1571 IF FF=1 THEN PRINT LL#$:END 

1575 PRINT: PRINT 

1588 PRINT TSt:FPOKE 198,B:WAIT 198,1:605 
UB 2918 

1585 PRINTTABC(FICOF:CO$:FRF$," LEARN THE 
RED’ ADJECTIVE FORMS: "sFS$ 

1586 FRINT 

16BB POKE 198,B:WAIT 198,1 

16818 FOR I=1 TO G:FRINT 1;CL$;".";5C0$; FS 
£:FRINTTAB(6)VM$ (1,4), F5$; 

1628 FOR Y=1 TO 3:PRINTTAB (ZB) VM£(I,Yd; F 
SE:NEXT Y 

16858 PRINT:POKE 198,8:WAIT 198,1 

1658 NEXT I 

1655 : 

1656 REM ** LISTE DRUCKEN 7 MEHR 
1657 : 

1868 PRINTCUF$:CUF;" LIST ON FRINTER? (Y/ 
N) " ä 

1678 FOKE 198,B:WAIT 198,1:6ET YN$: IF YN 
£$="N" THEN END 

1688 GOSUB 2812: FPRINTBL$; CU$, TT$; CU$; CU$ 
 T5$; CU 

1698 PRINT SPC(8) "IF YODUR PRINTER IS REA 
DY.":POKE 198,8:WAIT 198,1 

1675 OPEN 4,4: CMD4 

1676 PRINT" LEARN THE MARKED (8) ADJEC 
TIVE-FORMS OF UNIT";UN:PRINTLL$F;LL#F 

1788 TB=1:FOR I=-1T0G:PRINTI,:SFOR Y=-1TD 4 
17B1 LF=LEN (VM$(I,YI)—1 

1785 IF ASC(LEFT$(VM$(I,Y),„2))=28 THEN V 
M£(I,Y)="e"+RIGHTFCVMF(I,Y),LPA) 

1786 IF ASC(LEFTF(VMEFCI,Y),„1))=3Q THEN V 
ME(I,„Y)=RIGHTF$ (VM$(I,Y),LPA) 

1718 PRINT SPC(TB)IVMF£(I,Y) 3: TB=18-LEN (VM 
£(1,Y)):ıIF TB<1l THEN TB=l 
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1715 
1716 
1720 
1758 
1752 
1735 
17480 
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NEXT:PRINT: TB=1:IF I=>7 THEN TB=8 
NEXT:CLOSE 4:FRINTLL#;LL$:END 


REM ** ROMANISCHE STEIGERUNG #####%* 


HF=V#(1):U=8 
IF SI=>3STHEN V$(Z)="MORE "+H$:VE(5) 


="MOST "+H$:V$ (5) =V$ (2) : VE(6)=V$ (3) 


1745 IF 51I=>5 THEN 1148 
1758 : 
1768 REM ** GERMANISCHE STEIGERUNG ###%*%* 


1778 
1780 
1798 
1808 
1818 
18580 


REM #* RECHTSCHREIBUNG xx @0naen% 
R=LEN (H$) 

Ri$=RIGHT$ (H$,1) 

M2$=MID$ (H$,R-1,1) 

R2$=RIGHT$ (H$,2) 


1848 LiF=LEFTFCH$,R-1) 

1845 IF R2$="LY" AND SI=>Z THEN 51=3:6GDT 
0 17355 

1858 IF Ri$="Y" THEN V$(2)= LIF+H"IER":V$ 


(FSI=lLi$+"IEST":S5SI=1:U=1:60T0 179788 


186B IF R2$="OW" THEN SI=1:60T0 1788 
1878 IF R2$="ER" THEN SI>=1 

1888 IF R2#="LE" THEN SI=1 

19878 IF Ri$s="E" THEN VE(Z)=SHEH"R"SVE(H) 


=HF+"ST":U=1:60T0 1788 


1895 


IF MID$ (H$,R-2,2)="00" OR MID$(H$,R 


-2,2)="ER" THEN U=8B:60T01978 


18976 IF R2$="UR" THEN U=B:60T0 19798 

19788 FOR I=1 TO 5 

41718 IF M2$=MID$C"AEIDU",„I,1) THEN U=1:6 
0TO 1948 | 

1728 NEXT I 

1758 GOTO 19788 

1748 FOR I=1 TO S 


1745 
U=B 


IF R2$=MIDFC"EREWED*##«#",1,2) THEN 


19580 IF U=1 AND Ri$<S>MIDFC"AEIOU",I,2DD T 
HEN V#(2) =HF+R1 FH "ER" VFCH) =SHFH+RIFH"EST" 
17680 NEXT I 

1788 IF 5I=2 THEN V$(5)="MORE "+H$:V$F(6) 
="MOST "+H$ 

1798 IF U=B THEN V$ (2) =SH$+H"ER": VE CI) =SH$+ 
u EST UL 
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1792 VESI)=SVE(Z) ı VE (HI) =VFID) 

1995 U=8 

19798 : 

1999 REM ## AUSNAHMEN KERNE 

2B2B : 

2BBi IF VEtI)="QUIET"THEN V#(2)="QUIETER 
"NEC5)="QUIETEST" 

2882 IF V$t1)="GOOD" THEN V#(2)="BETTER" 
V£(3)="BEST" 

2BaR3 IF VEt1)="BAD"” THEN V$(2)="WORSE" 
:V£(3)="WORST" 

2884 IF V$(1)="LITTLE" THEN VE(Z)="LESS" 
:VE(Z)="LEAÄST" 

2RR5 IF VEt1)="MÜUCH” THEN VECZI="MORE”:V 
$(3)="MOST" 

2BB& IF VE$(1)="FAR"” THEN V#E(2)="FARTHER" 
:V£(3)="FARTHEST" 

2828 GOTO 1148 

2007 : 

2B1B REM ** UNTERFROGRAMM : FIEFSTON #** 
z2Bil : 

2812 FÜKE 5+24,15:POKE 5+11,17:POKE 5+7, 
287:POKE 5+8,34 

28153 POKE 5+13,24B8:FOR F=1 TO SQ:NEXT:FO 
KE S+t11,8:POKE 5+24,8 

22015 RETURN 

2B16 : 

2B17 REM * UNTERFROGRAMM: EIGENE EINGABE 
2B18 : 

B2B MM$=" THIS WORD ISN'’T STORED!" 

2858 INPUT" WHICH ADJECTIVE"s;ADF:GOSUB 2 

Bi2:IF AD#="@" THEN GDSUB 2812:6G0T0 1518 
2848 MN$= " "+RAF+" "+ADF+" "+REF+" I5 A 
PREVIOUS INPUT!" | 

=@5B FOR Ab=1 TO B 

2R&R IF VEF(AD)=ADF AND VH(ADI=1 ORGEF(A 

D) =SADFANDVH (AD) =1THEN MM$=MN$:GOTO 2888 
2078 IF VEF(AD)=SADE$ OR GEFtAD)=ADF THEN 
I=AD: Z=Z+1:VH(AD)I=1:6G0T0 19508 

2@880 NEXT AD 

2B7E FOKE 214,18:5Y5 58732:PRINT MMF$:COF 
‚CO 

2895 IFVE#(AD)<>"*" THEN 208580 

21880 FOR C =1 TO 288: NEXT:PRINT" 
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PRINTTAB(18)" 


2125 
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E=E+1:IF E=> 18 THEN FRINTCHRE (19: 


IF E=>15 THEN E=8: PRINTCHR# (19) :G0OT 


0 2828 


2150 
2508 
2518 
2528 
25580 
2540 
253350 
2560 
2600 
2618 
2615 
2628 


2630 


2640 


GOTO 2970 


REM ** UNTERFROGRAMM: LEKTIONS-WAHL 
PRINTBL$;CU$; TT$; CU$;CU$ 

PRINT" WHICH UNIT, PLEASE? (B-9)"; 
POKE 198,0:WAIT 198,1:GET UN$ 
UN=VAL (UN$) : RETURN 


REM ** MELDUNG:UNIT EXISTIERT NICHT 
PRINTBL$3 CU$; CU$; TT$; LU$ 
FOR C=1T0 58: NEXT:PRINTRE$; " 
".C0$ 
FOR C=1T0O 2@@:NEXT:PRINT SPC (6) RAS; 


" THIS UNIT ISN’T STORED! ",CO$ 

2645 E=E+1 

2650 IF E=>18 THEN PRINT CU$; CU$, TS$:605 
UR 2B12:POKE 198,B:WAIT 198,1 


2651 
615 

2668 
2770 
Ssaa0 
SaaS5 
SB1R 
s@15 
S>220 
s2a50 
>242 
sa58 
Ssa6s0 
3278 
s>278 
5120 
5118 
5128 
>158 
5148 
3158 
5160 


IF E= 


>12 THEN E=B: RESTORE: B=B: GOTO 


FOKE 646,E+5:60T0 2658 


REM #** ADJEKTIVE UND SILBENZAHL #%*% 


REM zuanaeanar LNIT 1 RER RRERERERE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


1,NEW,1,NEU 
1,OLD,1,ALT 
1,DIFFICULT,3,SCHWER 
1,600D,1,GUT 
1,MUCH,1,VIEL 
1,EASY,i,LEICHT 
1,5MALL,1,KLEIN 
1,FINE,1,FEIN 
1,FULL,1,VOLL 
1,LATE,1,SPAET 
1,NEAR,1,NAHE 
1,LITTLE,1,WENIG 
1,NICE,1,NETT 
1,LONG,1,LANG 
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5178 
35175 
3188 
5185 
31978 
5208 
>218 
5228 
32580 
5248 
3258 
Ss 
3278 
3275 
5288 
5285 
52978 
3302 
33518 
3315 
33528 
3325 
3558 
53540 
53558 
RTV.) 
53378 
3375 
3588 
53385 
3370 
5400 
5410 
5420 
53458 
5s448 
5458 
54608 
5478 
5488 
5485 
34970 
5495 
>00 
So18 
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DATA 


1 „NORMAL „3,NORMAL 


REM #882 %%% UNIT 2 KRRERREREERR 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


2,NICE,1,NETT 

2 ,HAPPY „2,GLUECKLICH 
2,QUIET,1,RUHIG 
2,FAR,1,WEIT 

2, INTERESTING,3, INTERESSANT 
2,BUSY,1,GESCHAEFTIG 
2,BREAT,1,GROSS 

2 ,EARLY,1,FRUEH 
2,0FTEN,3,DOFT 


REM KHRHaRHER UNIT 3 KERERERERERR 


DATA 
DATA 
DATA 


3 ,HUNGRY , 1 ,HUNGRIG 
3,BAD,1,SCHLECHT 
3,LITTLE,1,WENIG 


REM x ear UNIT 43 IRRE 


DATA 
DATA 
DATA 
DATA 
DATA 


4,COLD,1,KALT 
4,HOT,1,HEISS 
4,600D,1,BUT 
4,.LOVELY,1,LIEBLICH 
4.500N,1,BALD 


REM Xena LNIT 5 KRRRERERRRR 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


= „BEAUTIFUL ,3,SCHDEN 
5 ,EXCITING,3,SPANNEND 
5 ,5HORT ,1,KURZ 

5 ,LONG,1,LANG 
5,5ILLY,1,ALBERN 
S5,5TUPID,3,DUMM 
S,FREE,i,FREI 

5 ,5UNNY,1,SONNIG 
5,PRETTY,1,„HUEBSCH 

5 ,POOR,1,ARM 


REM xxx LNIT 65 KRRERERERRRR 


DATA 
DATA 


6,BRIGHT,1,KLAR 
&,C00L,1,KUEHL 


s528 
s558 
s542 
5350 
S36B 
3578 
>58 
55978 
3600 
Ss61® 
2615 
3628 
3625 
3450 
5640 
ss50 
RT T-) 7 
567® 
S680 
53678 
>708 
>718 
5715 
3728 
5725 
53758 
s748 
5758 
5768 
3778 
5788 
>798 
Ss808 
5818 
5828 
53858 
3848 
>85 
5955 
>86 
5965 
5978 
>938% 
878 
>8974 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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6,CLOUDY,1,WOLKIG 
&,WET,1,NASS 

6, STRONG, 1,STARK 
&,CLEAN,1,SAUBER 
6,DIRTY,1,SCHMUTZIG 
&,KIND,1,FREUNDLICH 
6,CHEAP,1,BILLIG 

6 ,PLEASANT ‚3 „ANGENEHM 

6, TERRIBLE,3,SCHRECKLICH 
& , NECESSARY ‚3, NOTWENDIG 


REM KEREERERERE UINIT 7 RERRERERERER 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


7 ,FAMDUS „3 ,„ BERUEHMT 
7,HELPFUL ,S3,HILFREICH 

7 ,WELL-KNOWN „3 , BEKANNT 

7 ,SUCCESSFUL „3,ERFOLGREICH 
7,PLEASED ,3,ERFREUT 

7 ,MARVELLOUS ,3,HERRLICH 
7,600D,1,GUT 

7 ,ANGRY ‚1 ,AERGERLICH 
7,SAFE,1,SICHER 


REM wuxaaeen LINIT 8 KRRERRERERER 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


8, YDUNG,1,JUNG 
8,MUCH,1,VIEL 
8,LITTLE,1,WENIG 
8,ELEGANT ,3,ELEGANT 
8,MODERN,3,MODERN 
8,C0SY,1,GEMUETLICH 
8,TIDY,1,ORDENTLICH 
8,HEALTHY,1,GESUND 
8, TERRIBLE ,3,SCHRECKLICH 
8,CLEVER,1,KLUG 
8,POLITE,3,HOEFLICH 
8,FEW,1,WENIGE 
8,POPULAR,3,BELIEBT 


REM Xena UNIT 97 RER 


DATA 
DATA 
DATA 


9 ‚NECESSARY „3, NOTWENDIG 
7,USEFUL ,3,NUETZLICH 
9,RICH,1,REICH 
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5895 
3896 
>F7B0 
57182 
5928 
57302 
>740 
39758 
59768 
s778 
5780 
ADa0 
BIFB 


7200 
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REM ##** ADDITIONAL ADJECTIVES ##%%* 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


D2,STUFFY,1,MUFFIG 
@,FUNNY,2,SPASSIG 
2,TIRED,1,MUEDE 
@,HARD,1 „HART 
@,EXPENSIVE ,3,TEUER 
D,5SLOW,1,LANGSAM 
D,HIGH,1,HOCH 
2,LOW,1,NIEDRIG 
D,HEAVY,1,SCHWER 


DATENEINGABE IMMER MIT 
1,"*",1,"%#" ABSCHLIESSEN! 
1 4 ny. 4 1 ’ ny. 
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Programm-Telegramm 


© Jederzeit Lösungsabfrage durch Eingabe von ? möglich. 

© Leistungsbewertung durch Kommentar, nicht durch Schulnote. 
»Physik-Trainer« stellt menügesteuerte Aufgaben zum Thema... 

® Widerstandsschaltungen mit 2, 3, 4 oder 5 Widerständen, 

© Spulenberechnungen, 

© Kondensatorschaltungen. 


Programmablauf 


Wie man mit diesem Programm arbeitet 


Nachdem das Programm eingetippt ist und keine Syntaxfehler mehr vorhanden sınd, 
kann es gestartet werden. Als erstes erscheint eine Übersicht der zu trainierenden Ge- 
biete. Der Schwerpunkt liegt dabei auf Widerstandsschaltungen. 
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Man kann zwischen Schaltungen mit zwei, drei, vier oder fünf und mehr Widerständen 
wählen. Die restlichen beiden Gebiete befassen sich mit Spulenberechnung und Kon- 
densatorschaltung. Eine fehlende Größe soll bestimmt werden. Es besteht auch die 
Möglichkeit, alle Gebiete gemischt zu üben. Durch Druck auf die richtige Taste mit 
der zugehörigen Ziffer 8 verzweigt das Programm zu dem angesprochenen Gebiet. Fol- 
gend wird jedes Gebiet einzeln erklärt. 


Widerstandsschaltungen 


Zuerst die dazu notwendigen Formeln: 


Reihenschaltung: R 


Parallelschaltung: nn 
ges 


Bei allen Teilaufgaben wird zuerst der Bildschirm gelöscht, und in der oberen Hälfte 
erscheint die zu berechnende Schaltung. Gesucht ist hier der Gesamtwiderstand. Dar- 
unter gibt das Programm zufällig ausgewählte Widerstandswerte aus. Nun sollst du die 
gegebene Schaltung berechnen. Nach der Frage 


»Welches Ergebnis hast Du? (T = Ergebnis)« 


ist man aufgefordert, den errechneten Wert einzugeben. Hierbei ist anzumerken, daß 
bei der Eingabe von Rechenresultaten eine Genauigkeit von einer Kommastelle genügt. 
Ist das Ergebnis richtig, was hoffentlich meist der Fall ist, erscheint 


»Sehr gut! Du hast richtig gerechnet!« 


Wenn »Noch einmal? (j/n)« mit j beantwortet wird, stellt der Computer eine neue 
Aufgabe. Bei der Eingabe von n kehrt das Programm zum Hauptmenü zurück. 
Wurde ein falsches Ergebnis eingegeben, wird dies in roter Schrift mit dem Hinweis 


»Leider falsch! Überprüfung notwendig?« 


mitgeteilt. Jetzt solltest du deine Rechnung nach eventuellen Fehlern durchsuchen. Die 
erneute Eingabe geht wie oben beschrieben vor sich. Konntest du nach mehreren Ver- 
suchen noch kein richtiges Resultat ermitteln, kann die Abfrage mit der Eingabe von 
? abgebrochen werden. Der Pfeil nach oben soll immer an diesen »Fluchtweg« erin- 
nern. Das Programm gibt das richtige Ergebnis folgendermaßen aus: 


»Mein Ergebnis zum Vergleich: xxxxxx.« 


Es empfiehlt sich dann, den betreffenden Stoff erneut in einem Physikbuch oder -heft 
anzusehen. 

Die hier beschriebene Eingabe von Rechenresultaten gilt ebenfalls für die anderen 
Aufgabengruppen. 
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Berechnungen zur Spule 
Hierbei geht es um die Induktivität einer Spule, also um die Formel 


? 
L=w*rA «N (u, = Permeabilitätskonstante) 


Gesucht ist immer eine fehlende Größe. Die restlichen Daten werden wieder vom 
Programm per Zufall bestimmt. Dadurch entstehen manchmal irreale Werte. Dies oll 
aber nicht weiter stören, da hier die Umstellung von Formeln erlernt werden soll. 
Die Eingabe von Ergebnissen ist dieselbe wie bereits unter »Widerstandsschaltungen« 
beschrieben. 


Kondensatorschaltung 


Die benötigten Formeln lauten: 


c=-r C,,= Cı+ C, 
Die Schaltung, die wieder in der oberen Bildschirmhälfte erscheint, beinhaltet zwei 
Kondensatoren und eine Gleichspannungsquelle U=. Die beiden Kapazitäten der Kon- 
densatoren und die anliegende Spannung sind immer gegeben und werden vom Pro- 
gramm angezeigt. Gesucht sind jeweils abwechselnd die Ladung C, oder C,, die 
Gesamtladung oder -kapazität. Die geforderte Maßeinheit ist zu beachten. Um Mißver- 
ständnisse zu vermeiden, ist mit uC Mikrocoulomb und mit uF Mikrofarad gemeint. 
Die Ergebniseingabe ist dieselbe wie bereits beschrieben. 


Alle sechs Aufgabengruppen gemischt 


Per Zufallsfunktion gesteuert, wählt das Programm einen von 6 Abschnitten aus und 
springt anschließend dorthin. Anstatt ”Noch einmal? (j/n)” erscheint jetzt "Weiter? 
(j/n)”, wobei bei der Eingabe von j wiederum zu einem weiteren Aufgabengebiet ver- 
zweigt wird. Andernfalls kehrt man mit n ins Hauptmenü zurück. 


Beenden des Programms 


Das Ende des Programms erreicht man im Hauptmenü mit der Eingabe von 9. Der 
Bildschirm wird gelöscht und die Leistung bewertet. Keine Angst, es gibt keine Schul- 
noten, sondern nur vier verschiedene Kommentare, die aus dem Verhältnis der rıchti- 
gen Ergebnisse zur Anzahl der Eingaben ausgegeben werden. Die Leistungsbewertung 
ist unverbindlich und kann, zum Beispiel ın der Abstufung, von dir verbessert und er- 
weitert werden. 

Das Programm verabschiedet sich mit 


»Bis bald auf ein neues Training!« 
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Programmbeschreibung 


Die wichtigsten Programmzeilen kurz erklärt: 


120-170: Voreinstellungen wie Bildschirm gelb, Kleinbuchstaben und oft vewen- 
dete Steuerzeichen. 

210-370: Hauptmenü. Verzweigung zu den einzelnen Gebieten. 

410 — 460: Beenden des Programms. 0.4, 0.7, 0.9 bedeuten <40%, <70%, <I90% 
der Aufgaben richtig gelöst. 


500: Widerstand per RND (X)-Funktion bestimmen. 
520-550: Einsprungzeilen der einzelnen Widerstands-Bereiche. 
560: Wählt die zu bearbeitende Schaltung aus. 


570 — 580: Variablen zur Darstellung der Schaltung auf dem Bildschirm. 

590 — 600: Ausgewählte Schaltung auf dem Bildschirm zeichnen. 

610: Widerstandswerte ausgeben. 

620: Zu der Schaltung gehörigen Gesamtwiderstand berechnen. 

630 — 660: Ergebniseingabe und Abfrage nach weiteren Aufgaben. 

700-1070: Schaltungen 

1110-1250: Formeln zum Gesamtwiderstand. 

1290 — 1360: Spulenberechnung. Per Zufallsfunktion zu einer Aufgabe verzweigen. 
Ergebniseingabe. 

1380-1600: Die einzelnen Aufgaben zur Spulenberechnung. 

1640 — 1740:  Ergebniseingabe. 

1750: Einen Zufallswert bestimmen. 

1790-1860: Kondensatorschaltung. 
Schaltplan auf den Bildschirm zeichnen. 

1870-1890: Gegebene Werte bestimmen und anzeigen. 

1900: Per Zufallsfunktion zu einer Aufgabe verzweigen. 

1950-2050: Vier Kondensatoraufgaben. 

2090-2120: Gemischte Aufgaben. 
Per Zufall eine von sechs Teilaufgaben auswählen und anschließend 
verzweigen. 


Tips zum Eingeben des Programms 


Die folgenden Hinweise sollen Dir das Fintippen des Listings erleichtern. Als erstes 
kannst Du alle REM-Zeilen weglassen. Diese sind für den Programmablauf nicht nötig. 
Viele Zeilen können kopiert werden, indem du eine Zeile eingibst und dann mit dem 
Cursor hochfährst und die Zeilennummer und einige andere Stellen änderst. Anzuwen- 
den wäre dies zum Beispiel bei den Zeilen 250 — 310, 520 — 540, 1380 — 1600. Vergiß 
aber nicht die Zeilennummer zu ändern, sonst überschreibst du die alte Zeile! Die Zei- 
len 700-1070, also die Schaltpläne der Widerstände, verlangen bei der Eingabe Auf- 
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merksamkeit. Hier kurz die Zeichen und die entsprechenden Tastenkombinationen, 
die man eingeben muß: 


Je Se Zei nz 'tr = 'C 
'C=' + '5' DS 
Cat 4 7 u een 
IC=' + ty It = !0et 


'SHIFT! + '#' 


'Cc=' Commodcre-Taste 


+ 'q@' 
+’ 
+ 'E' 
+ !R' 


Die inversen Zeichen sollen auf dem Bildschirm ein inverses Leerfeld ( MI ) bedeuten. 


Man erzeugt es mit folgender Tastenkombination: 


’CIRL + 9 Leerzeichen CTRL + 0 


Wenn du Lust hast, kannst du die Widerstandsschaltungen sowie alle anderen Aufga- 


ben ergänzen! 


Ich wünsche dir viel Freude mit diesem Programm! 


pokeSS289,7:pokeS35281,7:rem *"Bild- 


(Christoph Bronold) 


KRRRaRERKRRRHRRTRRKT TH TFT TEN . 


* % n 
* Physik - Trainer *# ö 
* + " 


KERRRERRERRETTER THF RN TFT TR u 


Copyright 1985 by £ 
moderne verlags gesellschaft" 


Autor: Christoph Bronold : 


schirm gelb 


printchr#t14):rem 


rot=chr#(18) :rem *"RV5 ein 
ch#=chr#(145):rem *"Cursor hoch 


cl#=chr#$(147) rem 
schen 


*"Kleinbuchstaben 


*"Bildschirm loe- 
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178 for i=1t040: baf=bas+"—-":bs$=bs$+"*": 

next i 

180 : 

1982 rem"#%#* Hauptmenue KRAKHRRHRRHRER 

200 : 

218 printchr$ (30) scl$ıbs#"+ Fhys 
ik-Trainer *":bs#$ 

2280 id=B:rem"* Keine gemischten Aufgaben 

258 printchr# (31) "Folgende Gebiete stehe 

n zur Verfuegung: "ba# 


2428 print," Widerstandsschaltungen 
ae 

258 print,"* 2 * mit 2 Widerstaenden" 
260 print,"* 35 * mit 53 Widerstaenden" 
278 print,"*4 * mit 4 Widerstaenden" 
288 print,"*5 * mit 5 und mehr Widerst 
298 print,„"* 4 * Berechnungen zur Spule 
"print 

S88ß print,"* 7 * Kondensatorschaltung”: 
print 

Ssiß print,"*8 * Alle & Gebiete gemisch 
re" 

528 print,"* 79 * Ende des Trainings":pr 
int:printba$; 


53ß print,"Deine Auswahl (2-97) ?":sprintb 
as; 

548 get tF#:if t+=""then 540 

s5@ if tF+F<"2"or t$>"Y9"then 348 

S&B on val(t$)gosub1B,5290,530,542,5958,12 
79,1770,2090,418 

5782 goto2Z1i® 


380 : 

3598 rem"*** Leistungsbewertung und 
Programmende *#%%% 

400 : 


418 printcl$:ifaf<s4then4öB 

420 qusar/af:ifquid.4then print"Du darfs 
t noch mehr ueben!":goto4&ß 

4538 ifqu<ßd.7then print"Das war eine mitt 
elmaessige Leistung!":goto4ö® 

4408 ifqu<ß.9then print"Eine qute Leistun 
g! ":goto440 | 

458 print"Ausgezeichnet! Du beherrschst 
diesen Stoff sehr qut'!" 
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4580 print:print:print"Bis bald auf ein n 
eues Training !"send 

470 : 

488 rem"*** Widerstandsschaltungen ####% 
490 : 

sS88 fori=1itoaz:r(i)=int (irnd (1) #i*S5D) +i*8 
s18 print"R"i"="r (i)"Ohm" „„next:return 
328 am=2: az=2: vk=l:gotoS4ld 

S3S5B am=4:az=35: vk=-3:gotoS6d 

s4B am=I:az=4: vk=7:gotoSdd 

sad am=4:vk=1B8 

SaB zf=einttirnd(1)#am)+vk 

570 11$="| |" 212$="1 I" 

5808 13$="| & 

598 printcl$ro®"Berechne bitte folgende 
Schaltung: ":printchrt{12W%bs# 

&BB8 on zf gosub 79890,728,7408,746&09,788,810, 
8530,850,880,909,748,770,1040 

&18 print:printbst:print"Die Widerstaend 
e haben die Werte: ":print:gosubS0B 

828 on zf gosub1i11B,1128,1130,1140,1150, 
11698,11790,1180,11908,1220,1218,1228,1248 
8350 gosubid64B 

48 if id=i then return 

&58 print:input"Noch einmal”? (j/n) "sfr$ 
:iffr$="j"thenS6d 

AB return 

67/8: 

HB rem"*#*#* Schaltungen HKERRRERRERREER 
92 : 

895 rem "BE 


RVS on (CTRL+9) 
r 


RVS off (CETRL+B) " 


696 : 

782 print" ERIE ai ERZE »"rreturn 
18 : 

7ZB print" —E R1E [ee ":printl2$:prin 
t"b ERZE = 'ereturn 

738 : 

748 print" —E ERIE Be "Sprintl2#:prin 
ti ERZE Ei ERSE HH "rsreturn 

750 : | 

768 print'—-E ERIE ei ERZE ei DRIE ie 
"sreturn 

778 : 
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788 print" 2 RIE eo": printl2$#:prin 
ta ERZE 41": printl2$ 

792 print" LE ERIE ij) "return 

800 : 

818 print" © ERIE = ":printlist:print" 
BR2E EHE BRIE "return 

828 : 

850 print" 2 ERI1E 35 ZRZE ia":printl2$: 
print" LE ERSE H-E BRAE GH "sreturn 

840 : 

858 print" © ZRIE 3-2 ZRZE E,":printl2# 
852 print 43 RIE ii ARME ip'ıret 
urn 

870 : 

888 print" a ERiE > ":printlis:print" GW 
sRZE HE RI fi ERAE dm "rreturn 
8978 : 

980 print" EB ER1E H"taz=6:printlis 

718 print"4E ER2E HE ERSE I" sprintl12$ 
928 print" ERIE HE ERSTE HE BROE ie": 
return 

9350 : | 

740 print" E ERIE ":az=6:printli# 

7580 print" HE ER2B HE SERIE =":printl2# 


760 print'FE ERAE ir——AE ERSE F":prin 
til1# 

9778 print" WW ERdE IH "sreturn 

988 : 

778 print! ia RIE D—"1az=9:pri 
nt13# 


1800 print" HK KERZE Ii=E ERIE Ss ERAE I" 
:printl35# 
1210 print'E ERSE Hi EROR HE ER7TE IHR 


rosa 28":print" "11% 
1228 print" IE ERIE H'"sreturn 
1030 : 


1840 print" a WRiE EMSE ERZE In ":az=9:pri 
ntl12$ 


1858 print" a ER3E 15 ERAB I ":pri 
nt135$ 


1058 print'+3 ERSE ir EREE HE RT 
= 8" printli$" "11$ 

1270 print" 1lE ERBE 3 IE ERIE H"sretur 
n 
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1080 : 

1B9B rem"x** Formeln KREIEREN 
1102 : 

11128 er=r (1) +r (Z)sreturn 

1128 er=1/(1/r (1) +1/r (Z)):sreturn 

1138 er=1/(1/r (1)+1/(r (2) +r (Z)))sreturn 
1148 er=r (1) +r (2) +r (3) sreturn 

1158 er=1/(1/r (1) +1/r (2) +1/r (5S))sreturn 
1148 er=1/(1/r (1)+1/r (Z))+r (Dereturn 
11/8 er=1/(1/tr tl) +r (2))+1/(r (D+rt4))): 
return 

1188 er=r (4) +1/(1/tr (1) +r (ZI) +1/r (S))ıre 
turn 

11928 er=1/(1/rt1)+1/r (ZI) +tr (5) +r (4) sretu 
rn 

1288 er=r (6) +1/(1/ir (4) +r (5) )+1/ tr (ZI) +1/ 
(1/r (1)+1/r (Z))))sreturn 

1218 er=r (SI) +17 (t1/rt4)+1/rtö)+r(r (ZI) +1/t 
1/r (1)+1/r (Z)))))sreturn 

1228 er=1/(1/r (1)+1/(r (2) +r (I) +r (4))+1/L 
r (5) +1/(1/r(6ö)+1/r (PV)Id+r(7))) 

123580 er=er+r (B)sreturn 

12408 rh=1/(1/(1/r (5) +1/r (8))+1/t1/r(ö)+1 
fr(P))) 

12580 er=1/trh+r1/ (tr (4) +17 (1/(r (1) +r (D)+1 
/r (DI) +r (Dıireturn 

1260 : 

1278 rem" *#%* Spulenberechnungen ##r###%#% 
1280 : 

1298 print cl#ıroFs, "Gesucht sind die res 
tlichen Daten zu ei-"s;3 

1295 printrof"ner Spule. 


"print 
1308 uo=s12.Söode-7/:rem "7 Fermeabili- 
taetskonstante" 


1518 print"Gbegeben sind:":print:printchr 

Ft(129);bat 

1322 on intirnd(1)*4)+1 gosub 1389,1440, 

1580,1568 

1558 if id=1 then return 

1342 print:input"Moechtest Du es noch 
einmal wagen? (j/n)"sfr# 

1358 if fr$="j"then 1290 

15680 return 

13708 : 
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1388 fk=1le4:gosub1 750: a=w:print"Flaeche 

A: ",a”’cnl2" 

153978 fk=le3:gosub175Q9:n=w:print"Windungs 

zahl: ",„n 

1488 fk=1809: gosub1758:1=w:print"Spulenla 

enge 1: ",1l"cm" 

1418 print:print"Gesucht ist die Indukti 

vitaet L in H" 

1428 er=uo#a#nt 2/1/180: gosub1ö4Q: return 
1430 : 

1448 fk=5:gosub1 758: in=w: print" Induktivi 

taet L:",„in"H" 

1458 fk=50:g0sub1 758: 1=w: print"Spulenlae 

nge 1:",1"cm" 

1468 fk=le4:gosub1 750: a=sw:print"Flaeche 
" a'tcnt2" Ä 

1470 print:print"Gesucht ist die Windun 

szahl." 

1488 er=sqr ({in#*10B8*1/a/uo) :gosubiö4ß:ret 

urn 

14970 : 

1508 fk=5:gosub1758: in=w: print" Induktivi 

taet L:",im"H" 

1510 fk=1208:gosub1 758:1=w:print"S5pulenla 

enge 1:",1"cm" 

i2zZz0 fEk=sles:rgosubl 7/2: n=w:print"Windungs 

zahl:",n 

1550 nenn ist die Spulenf 

laeche in mi2." 

1540 er=in#1/uo/nt 2/1080: gosub1ö4ß:return 

1500 : 

1568 fk=5:gosub1 758: in=w: print" Induktiwi 

taet L:",im"H" 

1570 fk=leF:gosub1750:n=w:print"Windungs 

zahl:",„n 

1580 fk=le4:gosub1 750: a=sw: print"Flaeche 

A:",a"cmt2" 

1578 print:print"Gesucht ist die Spulenl 

aenge in m." 

1608 er=uosntTzex*a/in/le4:gosub164B: return 

1810 : 

1628 rem"*** Ergebniseingabe Ka xH#%% 
1650 : 

16840 er=int (er#108B) /10R0Q: af=aftl:print: 

printbaftchr#(5) 
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1658 print"Welches Ergebnis hast Du? tf= 
Ergebnis)":input eg* 

16608 ifegs="M"thenprint"Ergebnis:",erich 
r$(3Q0) vegf="":return 

1678 eg=val (eg$) :if(er-.1“eg)and(egier+t. 
i)then1700 

16888 printch#" 


165978 printchtch®$:ch#f:ıchr#$ (28); "Leider fa 
l1sch! Ueberpruefung notwendig!":gotoldS 
1788 print:printchr#(31)”"Sehr qut'!' Du ha 
st richtig gerechnet'!'":print 

1718 ar=ar+i:print"Mein Ergebnis zum Ver 
gleich: "er:return 


1720 : 

1730 rem"#** 1 Zufallswert Kae 
1748 : 

17508 w=int (rnd{l1)*#fk)+tl:return 

1780 : 

1778 rem"'x*#** Kondensatorschaltung ##**#+ 
1788 : 

1798 printcl#ırots" Berechnungen zu 
einer “ 

1880 print rof:" Kondensatorschaltu 

ng > 

1818 print:print"Gegeben ist folgende Sc 


haltung: ":printchr#(129)bs$ 


1828 
1858 
18402 
1850 
18680 
1878 


aet Cl: 


1880 


print," [2 | 

print. dcı Ic 1. 

print," u=" 

print Rn I, BORN ERBE DR 

print:printbs# 
fk=997:gosub1 758: c1=w:print"Kapazit 
N „einer ®s 

tk=79797:gosub175B: c2=w:print"Kapazit 


aet CZ: ",„c2"pF" 


18970 


fk=108:gosub 1758: u=w:print"Anliegen 


de Span.:",„u" VW" 


1988 on int(rnd(1)*4)+1 gosub19750,1980,2 
2B1B,2040 

1918 ifid=ithenreturn 

1928 input"Nochmal (j/n) "sfrsıiffrf="j" 
then1797D 

19380 return 
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1940 : 

1958 print:print"Gesucht ist Ladung Ql v 
on C1i ut." 

1960 er=cl%#u/les:gosublö4ß:return 

1970 : 

17880 print:print"Gesucht ist Ladung D2 v 
on CZ in ul." 

1990 er=cZ*u/leSi:gosub164ß: return 

2Ra00 : 

2818 print:print"Gesucht ist die Gesamtl 
adung Q in uCc"; 

2828 er=((c1l+c2)#u) /lei:gosublö4ß: return 
2220 : 

2240 print:print"Gesucht ist die Gesamtk 
apaz. Cges in ur" 

2850 er=(c1+tc2) /lei:rgosubl164ß: return 
2B&0 : 

2278 rem"’*** Gemischte Aufgaben ####*%*% 
2280 : 

2098 id=1:on (inttrndt(1)*&ö)+1) goasubS2Q, 
350,5408,550,12728,1790 

2122 print:input"Weiter (j/m) ";fr® 
2110 iffr$="j"then297% 

2128 id=Q:return 
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6 
Grundlagen der Buchführung 


Istuecke (. 
72 en ck} 
apıtaı (d}> 


Programm-Telegramm ... 


® Der Computer stellt die Aufgaben; die Buchungen müssen mitgeschrieben wer- 
den. 

® Innerhalb der einzelnen Abschnitte ist die Lösung jederzeit abfragbar. 

© Die Leistungsbewertung erfolgt durch Kommentare. 

© Das Programm kann uneingeschränkt erweitert werden. 


... mit Anmerkungen 


Damit das Programm nicht schwerfällig wird, habe ich mich auf den einfachen Bu- 
chungssatz ohne Mehrwertsteuer und Abschreibung beschränkt. Geübten Program- 
mierern bereitet es keine Schwierigkeiten, das Programm zu erweitern. 

Der Computer stellt nur die Aufgaben und verlangt die Eingabe der betreffenden 
Konten und später jene der Salden. Natürlich könnte das Programm mehr Schreibar- 
beit abnehmen, aber dann würde es ın eine reine Additionsübung ausarten, und die 
Möglichkeiten, Fehler zu machen, wären äußerst gering. 
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Programmablauf 


Hat man in mühevoller Arbeit ein Programm eingetippt und startet es zum ersten Mal, 
kommt es häufig erst einmal zu einem »SYNTAX ERROR IN ...«. Nur nicht ver- 
zweifeln! Vergleiche bitte die eingegebenen Zeilen genau mit denen des Listings im 
Buch, denn im Programm selbst sind keine Syntax-Fehler. 

Nach dem Verbessern der letzten Fehler ist das Programm lauffähig. 

Um die Zeit zu überbrücken, die der Computer zur Bearbeitung der Eingabe benö- 
tigt, erscheint zunächst 


»Eingabe wird bearbeitet. Bitte warten!« 


sowie die öfter verwendete Überschrift »GRUNDLAGEN DER BUCHFÜH- 
RUNG«. 

Als erstes wirst Du aufgefordert einzugeben, wie viele Buchungen Du bearbeiten 
möchtest. Danach folgt die Eröffnungsbilanz. Ihre Werte werden mit der Zufallsfunk- 
tion ’RND (X)’ berechnet und stimmen nicht ganz mit der Realität überein. Dies soll 
aber nicht weiter stören, da mit diesem Programm nur die Buchungstechnik vermittelt 
werden soll. Die Darstellung der Bilanzen weicht ebenfalls von der Norm ab. So sind 
hier keine sogenannten »Buchungsnasen« dargestellt, sondern nur »- - -« mit dem Wert 
Null. Wie man sieht, läßt sich eben nicht alles auf dem Computer darstellen, will man 
den Aufwand in Grenzen halten. Um mit dem Programm vernünftig arbeiten zu kön- 
nen, ist es notwendig, sich die Eröffnungsbilanz auf einem Zettel zu notieren bezie- 
hungsweise und/oder die einzelnen Konten mit den Anfangsbeständen. Mit einem 
beliebigen Tastendruck nach der Aufforderung 


»Weiter = beliebige Taste druecken!« 


gelangt man zur ersten Buchungsaufgabe. Der Bildschirm wird gelöscht, und folgendes 
erscheint: 


KERRERUIRRURERRRRER FE IIIHIIEITEIHIH TEEN EIER 
1. Buchung: 


(Hier steht jeweils die Buchungsaufgabe) 
EERERRRRRTHNRTEENETEETTEIIEITEIEIIE TE IEIEIEIIEIHIE III 


Buchung im Saolls 
(g’rundstuscke (a)usstatt. (waren 


(forderungen (k)asse (b)ank 
(e)igenkapital (d)arlehen (vW)lerbindl. 
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Nach dem Fragezeichen muß der Anfangsbuchstabe — nur Kleinbuchstaben sind zu- 
lässig! — des entsprechenden Kontos eingegeben werden. Bei falscher Eingabe (z.B. 
Großbuchstaben) weist das Programm folgendermaßen darauf hin: 


»Wie bitte?« 


Der Cursor springt wieder in die Zeile mit dem Fragezeichen. Nun ist noch die Ge- 
genbuchung im Haben nötig. Diese erfolgt im Prinzip wie die Buchung im Soll. 

Die Eingabeschleife kann nur dadurch abgebrochen werden, indem man einfach alle 
Anfangsbuchstaben durchprobiert. Du sollst natürlich auch auf deinem Zettel die Bu- 
chung durchführen. Nun kann erst die nächste Aufgabe in Angriff genommen werden. 

Nachdem alle Aufgaben gestellt sind, folgt nun die Eingabe der einzelnen Abschluß- 
salden. Schließe alle Konten ab und beginne dann erst mit der Eingabe der einzelnen 
Salden. Dabei erscheint in der zweiten Zeile zwischen zwei Strichen das entsprechende 


Konto. Mit 
»Saldobetrag: (T = Ergebnis) ?« 


wirst du zur Eingabe deines Ergebnisses aufgefordert. Da das Programm mit ganzen 
DM-Beträgen rechnet, sind Eingaben mit Kommastellen sinnlos. Wenn 


»Leider falsch!« 


auf dem Bildschirm erscheint, war dein Ergebnis falsch. Bei richtiger Lösung wird die 
Bilanz gezeigt. Hast du nach intensiver Suche deinen Fehler nicht gefunden, kann das 
richtige Ergebnis mit der Eingabe von ”’1’”” abgefragt werden. 

Dieses gibt das Programm in der Form von 


»Ergebnis: xxxx« 


aus, und darunter erscheint die Bilanz. 

Diese ist wieder computertypisch dargestellt. Nach einem beliebigen Tastendruck wird 
mit dem nächsten Konto fortgefahren, und die Saldoeingabe erfolgt in gleicher Weise. 
Nachdem alle Salden eingegeben wurden, bist du am Ende des Programms angelangt. 
Nun wird auf dem Bildschirm folgendes ausgegeben: 


»Nun bist Du am Ende der Trainingseinheit angelangt. 
Deine Leistung war .. .« 


Aus dem Verhältnis der falschen Eingaben zur Gesamtzahl der Eingaben wird deine 
Leistung bewertet und ein entsprechender Kommentar ausgegeben. Abschließend fragt 
das Programm mit 


»Moechtest Du noch weiter trainieren? (j/n)« 


nach einem erneuten Durchlauf, der mit der Eingabe von ’j’ erfolgt. Ansonsten ist das 
Programm nun beendet und verabschiedet sich mit 


»Bis bald zur naechsten Trainingseinheit!« 
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Programmbeschreibung 


Die wichtigsten Programmzeilen kurz erklärt 


160 — 290: 
330 — 350: 
370: 
380 — 440: 
450 - 510: 
530: 

560 ff: 
580: 


600: 


610: 
620: 


640: 
650 — 940: 


950: 
960 — 1160: 
1200: 
1210: 
1229: 
1230: 
1240: 


1270: 

1290: 

1310: 

1330: 

1370 ff: 
1420: 

1430: 
1450 — 1460: 
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Definition der Bildschirmfarben, Felder, Farben, Linien. 

Eingabe der Anzahl der Buchungen. 

Überlesen der Buchungsaufgaben. 

Aufstellen der Eröffnungsbilanz. 

Ausgabe der Eröffnungsbilanz. 

Warten, bis eine Taste gedrückt wird. 

Buchungsaufgabe stellen. 

l = Schleifenzähler 

an = Anzahl der gestellten Aufgaben. 

af = Anzahl der falschen Eingaben. 

az = Anzahl der Buchungsaufgaben. 

DATA-Zeilen so lange durchsuchen, bis die zufällig bestimmte Aufgabe 
ı gefunden ist. 

Buchungswert per RND (X)-Funktion bestimmen. 

Buchungswert ausgeben und falls 1i>10 zum zweiten Buchungsblock 
verzweigen. 

Verzweigung der dazugehörigen Buchung in den Konten. 

Anzahl der Einträge im Sollkonto auf sb erhöhen, in das Gegenkonto 
die sb-te Buchung eintragen und den Buchungswert abspeichern. 
Dito ım Habenkonto durchführen. 

sb$ = Anfangsbuchstabe des Sollkontos. 

hb$ = Anfangsbuchstabe des Habenkontos. 

Zur 10.- 17. Aufgabenlösung verzweigen. 

Wie von Zeile 650 — 940. 

Ausgabe von »Buchung im Soll« und Konten. 

Eingabe des Anfangsbuchstabens des Sollkontos. 

Ausgabe von »Buchung im Haben« und Konten. 

Eingabe des Anfangsbuchstabens des Habenkontos. 

Schleifenzähler um 1 erhöhen, und falls noch nicht alle Aufgaben abge- 
arbeitet sind, nach Zeile 590 zurückspringen. 

Hilfsunterprogramme. 

»Eingabe wird bearbeitet .. .« ausgeben. 

Überschrift »Grundlagen .. .« ausgeben. 

Ausgabe der möglichen Konten. 

Saldeneingabe 

Aufsummieren der Beträge der Aktiva-Konten auf der Sollseite. 
Aufsummieren der Beträge der Aktiva-Konten auf der Habenseite. 
Abschließen des Kontos. 
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1470-1490: Eingabe des Saldobetrages. 

1500-1560: Konto auf dem Bildschirm zeigen. 

1600-1750: Dito für Passıva-Konten. 

1760-1850: Beenden des Programms mit Leistungsbewertung. 
1890 - 2050: Geschäftsvorfälle in DATA-Zeilen. 

2060-2080: Die einzelnen Konten in DATA-Zeilen gespeichert. 


Erklärungen zu den Feldern k, k$, az 


Will man das Programm ergänzen oder verbessern, ist es notwendig, den Aufbau des 
Feldes k bzw. k$ zu verstehen. Folgende Angaben gelten auch für das Feld k$. 
Für k (Nr, Art, $S/H, Buchung) gilt: 


Nr = Nummer des Kontos, z.B.: 1 = Grundstücke, 2 = Geschäftsausstattung 
usw. 
Ebenso bei Passiva-Konten: 1 = Kapital, 2 = Darlehens. 

Art = Art des Kontos: 1 = Aktiva-Konto, 2 = Passıva-Konto. 

S/H = Angabe von Soll- oder Habenseite: 1 = Soll, 2 = Haben. 


Buchung: Hier steht der Betrag bzw. der Name des Gegenkontos der Buchung. 
Bei az (Nr, Art, S/H) verfährt man ebenso. 


az = Anzahl der im Konto stehenden Buchungen. 


Einige Tips zur Eingabe des Programms 


Die im Programm auftretenden REM-Zeilen, d.h. Programmerläuterungen sind für 
den Programmablauf nicht nötig und können weggelassen werden. 

Viele Zeilen kann man kopieren, indem man eine Zeile eintippt, mit dem Cursor 
hochfährt, die Zeilennummer und die entsprechenden Stellen ändert. Nicht vergessen: 
Die Zeilennummer ändern, sonst wırd die alte Zeile überschrieben! Dieses Verfahren 
könnte man insbesondere bei den Zeilen 650 — 1150, 1410 — 1560 und 1600 — 1750 an- 
wenden. 

Ich hoffe, daß dir dieses Programm viel Freude bereitet. 


(Christoph Bronold) 
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12 rem KERRERRRRERRRRRRRTERT RENT 


28 rem * # 

sd rem" * Grundlagen der * " 
SQ rem" + Buchfuehrung * 2 
od rem * # 

78 rem KRERRRRRTNURRTTRTER RENT NN: " 
80 : 


98 rem" Copyright 1985 by - 
108 rem moderne verlags gesellschaft 


128 rem” Autor: Christoph Bronold = 

138 : 

158 poke53281,1:rem" Hintergrund weiss 

148 poke53288,3:rem”" Rahmen tuerkis 

178 gosub12%9B :rem" Kommentar ausgeben 

198 dim az (8,2,2) :rem" Anzahl d. Ein- 
traege 

288 dimk#(8,2,2,28):rem" Kontennamen 

218 dimk (8,2,2,20) :rem" Betraege 

228 cl#=chr#(147) rem" Bildschirm 


loeschen 
238 ch$=chr#(145) :rem" Cursor hoch 
248 r$=chr# (28) rem” rot 
258 b$=chr#(31) srem" blau 


268 printchr#(14) :rem" Kleinbuchstaben 

265 print cl#$ | 

278 fori=1to40: s5F=sI$+"#":54$=s54$+chr$( 

45) :55$=-säit+tchr FF (1972) next 

288 si$=left$(s5$, 21) +chr#(178) +left$(s5 

$,17) 

298 s2$=left$(s5$,21)+chr$(Z21N+left$(s5 

$,17 

300 : 

sid rem"#** Programmbeginn FFHHHHHHHRR% 

Ss2zB : 

338 gosub131B8:print:printbf"Wie viele Bu 

chungen moechtest Du bear-" 

340 input"beiten (5-58) "sab 

s5B8 ifab<Sorab>S5ßdthenprintch#tch$:goto34B 

saß print:print:print"Es folgt die Eroef 

fnungsbilanz." 

s78 read az:fori=1to az:reada$:next 
srem"*## Ueberlesen 
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>88 readal:ba=sal:fori=litoal:readk#(i,1,8 
‚„B) :gosub130B 

398 wi=int (w#1@Tfint(ba/2)):kti,1,1,1)=wi 
:ba=sba-1:si=si+twil:next 

400 fori=itoal:k$ti,1,1,1)="Anfangsbest. 
"s:az(i,1l1,1)=1:next 

418 reada2: readk#(1,2,80,8) 

4208 ba=sa2-1:fork=s2toaZ:readk$(k,2,8,0):g 
osub13B8 

438 wZ2=eint (wriß@Tba)sk(k,2,2,1)ew2:ba=ba- 
1:52=52+w2:next:k(t1,2,2, 1)=s1-82 

448 fori= Itoa2:ık$(i 2,2, 1)="Anfangsbest. 
"saz(i,2,2)=1:next 

4508 gosub131B:printchr$ (30) "Aktiva E 
roeffnungsbilanz Passiva" 

46B printsi$: fori=1itoal 

478 printk$(i,1,8,8);:h$=str#$(k(i,1,1,1) 
)sprinttab (Z21-lenthF))h$;chr$ (221); 

Bee ifktti,2,8,8)=""thenk$ti,2,8,8)="--- 


498 printk$(i,2,8, 1 1) 
)sprinttab (539-1en(hF#))hf 

588 next:prints2#:h$=str#(si):printtab (2 
1-lAen (h#) )h$; chr$ (221) 3 tab (39-1en (hF))hf$ 
=10 BEIN zz=== zzm=== 


328 print:printb$;" Weiter = beliebige 

Taste druecken! ” 

5358 poke 198,8B:wait 198,1:get wt# 

S48 gosub1298:rem"** Tastendruck bestae- 
tigen 

Ss : 

368 rem"*#* Buchungsschleife ran R* 

s7’B : 

588 1=1:an=B:ar=8 

598 print:print:print:printchr$(144)c1$; 

s3#; 1". Buchung: " 

88 restoresreadaz: fori=ltoint (irnd(1)#17 

I)+l:readbuf:next:i=i-l 

18 bw=eint (rnd (DB) #1BBB) +100 

&28 prints4$buf" "bw"DM"sprints3$;b$:ifi 

>18then?58 

625 : 

658 rem"#*** Buchung ausfuehren Re 

635 : 
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548 onigoto4s50,489,710,740,7708,800,850,8 
60,879,728 

858 sb=az (3,1,1)+t1:az (3,1,1)=sbik#t5,1,1 
‚sb)=k#F(5,1,8,2):K(3,1,1,sb)=bw 

48 sb=az (5,1,2)+1:a2 (5,1,2)=sb:k$ (5,1,2 
‚sb)=k#(3,1,08,2):k(5,1,2,sb)=bw 

678 sbt="w":hb$="k":gotol2Bd 

&88 sb=az (3,1,1)+1sazt3,1,1)=sb:k#(53,1,1 
‚sb)=zk#$(6,1,8,2):K(3,1,1,5sb)=bw 

972 sb=az (6,1,2)+1:32(6,1,2)=sb:k#(6,1,2 
‚sb)!=k#(3,1,8,0):k(65,1,2,5sb) =bw 

7828 sbt="w":hb$="b":gotolZ2RR 

718 sb=az (3,1,1)+1:a21(3,1,1)=sb:k#(35,1,1 
‚sbI=k#(3,2,8,B):k(3,1,1,sb)=bw 

728 sb=az (3,2,2)+l:az (3,2,2)=sb:k#(3,2,2 
‚sb)=k#+(3,1,8,09):k(3,2,2,sb) =bw 

738 sb$="w":hb$="v":gotol298 

748 sb=az (4,1,1)+1:az(4,1,1)=sb:k#(4,1,1 
‚sb)=k#(3,1,0,0M:k(4,1,1,sb)=bw 

7580 sb=az (3,1,2)+t1:az (3,1,2)=sb:k#(3,1,2 
‚sb’=k#(4,1,8,0):k(3,1,2,sb)=bw 

768 sbF="f":hb$="w":gotol29d 

778 sb=az (6,1,1)+1:az (6,1,1)=sb:k#(6,1,1 
‚sb)=k#(3,1,8,D):k(6,1,1,5b)=bw 

788 sb=az (3,1,2)+1:a2(3,1,2)=sb:k#(35,1,2 
‚sb)=k#(6,1,8,0):kK(3,1,2,5sb)=bw 

798 sb$="b":hb$="w"sgotol298 

808 sb=az (5,1,1)+t1:a2(5,1,1)=sbsk#(5,1,1 
‚sb)=k#(3,1,8,0):K(5,1,1,sb) =bw 

B1B sb=az (3,1, 2) +1:az (3,1,2)=sb:k#(5,1,2 
‚sb!=k#(5,1,8,2):k(3,1,2,sb)=bw 

8208 sb#="kK":hbt="w".gotol2R0 

858 sb=az (2,1,1)+1:az (2,1,1)=sb:k$(2Z,1,1 
‚sb)=k$(6,1,8,8):k(2,1,1,5b) =bw 

848 sb=az (6, 1,2)+1:az (6,1,2)=sb:k#(6,1,2 
‚sb)=k#(2,1,8,8):k(6,1,2,sb) =bw 

850 sb$="a"ıhbt="b":gotol 28 

858 sb=az (2,1,1)+1:az (2,1,1)=sbik#(2,1,1 
‚sb)=k#(5,1,8,B):k(2,1,1,sb)=bw 

872 sb=az (5,1,2)+1:32 (5,1,2)=sb:k#(5,1,2 
‚sb)=k+(2,1,8,9):k(5,1,2,5b) =bw 

880 sbF="a":hbt="k":gotol298 

870 sb=az (3,2,1)+t1:az (3,2,1})=sb:k#(3,2,1 
‚sb)=k#(68,1,2,D):k(3,2,1,sb) =bw 
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9BB sb=az (b,1,2)+tl1l:az (6,1,2)=sb:k#(6,1,2 
„‚sb)=k#(3,2,8,0):k(64,1,2,5b)=bw 
718 sb#t="v"i:hbt="b":gotol2d 
928 sb=az (3,2,1)+tl:az (53,2,1)=sb:k#(3,2,1 
„sb)=k#(5,1,2,8):kK(3,2,1,sb)=bu 
938 sb=az (5,1,2)t1:a2 (5,1,2)=sb:k# (5,1,2 
‚„‚sb)=k#(3,2,08,2):k(5,1,2,5b) =bw 
940 sb$="v"shbt="kK":gotol2d 
758 oni-18g0t09690,770,1028,1059,1280,111 
3,1140 
F6B sb=az (5,1,1)+t1:32(5,1,1)=sb:k$(5,1,1 
‚sb)=k#(4,1,8,0):K(5,1,1,sb)=bw 
778 sb=az (4,1, 2)+1:az (4,1,2)=sb:k#(4,1,2 
„sb)=k#(5,1,08,8):k(4,1,2,5b) =bw 
788 sbFt="k":hb$="f":gotol2d 
3798 sb=az (6,1,1)+1:az (6&,1,1)=sb:k#(d,1,1 
‚sb)=k#+(4,1,8,80):k(64,1,1,5sb) =bw 
1008 sh=az (4,1, 2) +1l:az (4,1, 2)=sbıkft(4,1, 
2,5b)=k#(6,1,8,0):k(4,1,2,sb)=bw 
1818 sbF="b":hb#="f":gotol2Bd 
18208 sb=az (1,1,1)+1:az(1,1,1)=sb:k#(l,1, 
1,s5b)=k#(68,1,8,D):kt1,1,1,sb)=bw 
1038 sb=az (6,1, 2)+tlil:az (6&,1,2)=sb:k#tö,1, 
2,sb)=kF(1,1,8,8):k(6,1,2,5b)=bw 
1848 sb$="g":hb$="b":gotol1288 
12850 sb=az (5,1,1)+1:az (5,1,1)=sb:k# (5,1, 
1,5sb)=k#(68,1,2,0):k(5,1,1,sb)=bw 
1880 sb=az (6, 1,2) +l:az(6,1,2)=sb:k#(&,1, 
2,sb)=k#(5,1,2,2):k(64,1,2,sb) =bw 
1870 sb#+="k":hbf="b":gotol298 
1888 sb=az (6, 1,1)+1:az (6,1,1)=sb:k#(d,l, 
1,5b)=k#(5,1,8,0):k(&,1,1,sb) =bw 
1898 sb=az (5,1,2)+1l:az (5,1,2)=sb:k# (5,1, 
2,sb)=kf(6,1,8,80):k(5,1,2,sb)=bw 
1108 sbt="b":hb$="k":gotol29d 
1112 sb=az (3,2,1)+t1:az(3,2,1)=sb:kf# (3,2, 
1,sb)=k#(2,2,8,0):k(53,2,1,sb) =bw 
11298 sb=az (2,2,2)+1l:a2 (2,2, 2)=sb:k# (2,2, 
2,sb)=k#$(3,2,8,8):k(2,2,2,sb) =bw 
11308 sb#f="v"s:hbf="d":goto1298 
11428 sb=az (5,1,1)+t1:a2(5,1,1)=sb:k# (5,1, 
1,5b)=k+(2,2,02,B8):k(5,1,1,sb) =bw 
1159 sb=az (2,2, Z)+l:az (2,2, Z2)=sb:k# (2,2, 
2,sb)=k#(5,1,8,0):k(2,2,2,sb)=bw 
1158 sb$="k"’ıhb$t="d":goto1l1298 
1170 : 
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1188 rem"*#* Eingabe des Anfangsbuchsta- 
bens der Buchung ####%%#%%% 

1198 : 

1288 print:printr$; "Buchung im Soll:":san 

=anti:gosub153Q 

1218 inputse$:ifse#<>sb*then printr#"Wie 

bitte ?”"bf;cht; chf: af=safti:gotolZ1d 

1228 print:printb$;3 "Buchung im Haben: "sa 

n=an+ti:gosub 1330 

1258 se$="":input se# 

1235 if sef<>hb# then print"Wie bitte? " 

b$;ch$;ch#:af=af+i:goto 1238 

1248 1=1+1l:ifl<=ab then 598 

12580 goto 13780 

1268 : 

1278 rem"*#* Hilfsunterprogramme ####%#%* 

12808 : 

1298 print:print"Eingabe wird bearbeitet 


. Bitte warten! ":return 

1300 : 

1318 printchr$(149)c1$sIF$" * Grundlag 
en der Buchfuehrung * "s3tb$ 


1328 print:return 

1558 print" (g)rundstuecke (a)usstatt. (w 
Jaren" 

1348 print" (f)orderungen t(k)asse (b 
Jank" 

1358 print" (e)igenkapital (d)arlehen (v 
Jerbindl.":return 

1360 : 

1378 rem"*#* Saldeneingabe HF %%% 
1380 : | 

1598 gosub131® 

14808 print"Gib bitte jetzt die jeweilige 
n Saldo- betraege ein. ":print 

1418 fori=itoal:prints4F,k$(i,1,8,2):pri 
nts4f:s1=B:s2=B: an=an+i1 

1428 for j=1itoaz (i,1,1):si=si+tk(i,1,1,j): 
next | 
1438 fork=1itoaz (i,1,2):s2=s2+k(i,1,2,k): 
next | 

1448 ifs2>s1ithen1448 

1458 s=s1-s2:k$(i,1,2,k)="Saldo":sk(i,l1,2 
‚kI=s:az (i,1,2)=k:gotol147B 

14408 s=s2-si:kf(i,1,1,j)="Saldo"sk(i,l,il 
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‚j)=s:az(i,1,1)>j 
1478 input"Saldobetrag:s (T=Ergebnis) ";s 
b$ 
1488 ifsb$="T"thenprint "Ergebnis: "= 
"DM"saf=saf+ti:gotol528 
1498 sb=val (sb$) sifsb{>s thenprintrf#"Lei 
der falsch! "b$;ch#; ch$: atf=af+t1:goto1478 
1588 print:printchr$(39)"S 

! H "s2#$ 
15198 kh=az (i,1,1):ifaz (i,1,2) >khthenkh=a 
z(i,1,2): 
1528 form=1itokh:h*=str$tk (i,1,1,m)) 
1538 printksti,l1,1,m)tab (21-len(h$))hf") 

3 

1548 h$=str#(k(i,1,2,m))sprintk$(i,1,2,m 
tab (39-len(h$))h$:ınext 
1558 prints2$:prints3$b$: print"Taste dru 
ecken !" 
1568 waiti198,283: gett$:printcl$enext 
15780 : 
1588 rem"#** FPassiva-Konten FH %%% 
1598 : 
1488 fori=1itoa2:printcl1$;s54%,k$(i1,2,8,D) 
:prints4*:s1=8: s2=B: an=an+i 
1618 for j=itoaz (i,2,1):si=sitk(i,2,1,j): 
next 
1628 fork=1toaz (i ,2,2) :s2=s2+tk (1 ,2,2,k): 
next | 
1638 ifs2>s1ithen1458 
1648 s=si1-s2:kF(i,2,2,k)="Saldo":k(i,2,2 
„k)=sıaz (i ,2,2)=k:goto1lä4d | 
1658 s=s2-si:k$(i,2,1,j)="Saldo"sk(i,2,l 
„j)=sıaz (i,2,1)=)j 
1668 input"Saldobetrag: (T=Ergebnis) ";s 
b$ 
1478 ifsb$="T"thenprint"Ergebnis: "o 
"DM"saf=af+ti:goto1&978 
1688 sb=val (sb$) : ifsbi>sthenprintr$"Leid 
er falsch !"b$ch$#ch$: af=af+ti:goto1l&ädßd 
1498 print:printchr$(3B) "S 

I H "s2$ 
1788 kh=az (i,2,1):sifazti,2,2) >khthenkh=a 
zti,2,2)3 
1718 form=itokh:h$=str#t(k (i,2,1,m)) 
1728 printk$sti,2,1,m)tab (21-len (h$))h$" I 


123 


Grundlagen der Buchführung 


1758 h$=strf#t(k (i ,2,2,m)):printk$#(i,2,2,m 
tab (i39-1lenthF))hfrnext 

1748 prints2$:prints3t:printb#*"Taste dru 
ecken !" 

1758 wait198,203:gett#:printcl#:next 
17688 gosubi13S1ß:print'"Nun bist Du am Ende 
der Trainingsein- heit angelangt." 
1778 print:printr*"Deine Leistung war "s; 
:qu=saf/an 

1788 ifqu<.4 then print"nichts besondere 
Ss. Mehr ueben!":goto1828 

1798 ifqu<.d then print"mittelmaessig!”: 
gotoi1828 

18088 ifqu<.85 then print"recht qut'!":got 
01828 

1818 print"ausgezeichnet! 


Sehr qut! 


1828 print:print:printb#"Moechtest Du no 
ch weiter trainieren? (j/m)" 

18358 waiti198,203:gett# 

184B if t+="j"then run 

1858 printcil#"Bis bald zur naechsten Tra 
iningseinheit!":send 


1880 : 

1878 rem"*** Geschaeftsvorfaelle ####%#% 
1880 : 

1878 data 17,"Wareneinkauf gegen bar" 
1908 data "Wareneinkauf gegen Scheck" 
1718 data "Wareneinkauf auf Ziel” 

1928 data "Warenverkauf auf Ziel" 

1758 data "Warenverkauf gegen Scheck" 
17948 data "Warenverkauf gegen bar" 

1958 data "Kauf einer Schreibmaschine ge 

gen Scheck " 

1968 data "Kauf eines Schrankes gegen ba 

r n 

1778 data "Bankueberweisung an Lieferant 

en “ 

19868 data "Barzahlung an Lieferanten" 
1797908 data "Barzahlung eines Kunden" 

2808 data "Bankueberweisung eines kunden 

2818 data "Kauf eines Grundstuecks gegen 
Scheck = 

2028 data "Barabhebung vom Bankkonto" 
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2838 data "Bareinzahlung auf Bankkonto" 

2948 data "Umwandlung einer Lieferantens 
chuld in Darlehen" 

2858 data "Aufnahme eines Darlehens; bar 
2858 data 4, "Grundstuecke" , "Gebaeudeauss 
t.",„"Waren", "Forderungen" „"Kasse" 

207B data "Bank" 

2888 data 3,"Kapital","Darlehen", "Verbin 
dlich." 
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7 
Lernfiler 


Die Fläche der BR Deutschland beträgt 248 610 km?. Diese Fläche wurde hier aus Lernzwecken gerundet. 
Das Bildschirmfoto zeigt nur eine von vielen Anwendungsmöglichkeiten dieses Programms! 


Programm-Telegramm 


© Lerndatei mit integriertem französischem und italienischem Zeichensatz sowie 
deutschen Umlauten und ß. 

® Geeignet für alle Lernstoffe nach dem Frage- und Antwortprinzip. 

© Individuelle Dateneingabe möglich. 

© Menügesteuerter Zugriff auf bis zu 15 verschiedene Bildschirme (in der großen 
Diskettenversion). 


Vom Gehirn auf Diskette — und zurück! 


Begriffsklärung 


Lernfiler: Programm, das mnemotechnisch (lerntechnisch) organisierte Dateien erstellt 
und verwaltet. 
File: Auf Diskette speicherbarer Inhalt des vom Programm verwalteten Speichers. 
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Lern-Datei oder Bildschirm wird der Inhalt der einzeln zu bearbeitenden Lerngegen- 
stände genannt. Zwischen 1 und 15 davon sind nach entsprechender Auswahl unmittel- 
bar verfügbar, ohne daß auf die Diskette zugegriffen werden müßte. 

Escape-Taste: Taste links oben, Pfeil nach links. Mit ihrer Hilfe gelangt man aus fast 
jeder Programmstation ins Menü zurück und kann so die veschiedensten Aktionen ab- 
brechen, ohne den Speicherinhalt (das File) zu verändern. 


Pädagogische Überlegungen 


Nach allgemein gültigen pädagogischen Bewertungen ist es für die meisten Lernenden 
notwendig, sich Lernstoffe nicht nur lesend, sondern tätig — in der Regel schreibend 
— anzueignen. Ein Programm wie der Lernfiler ıst daher ein Instrument, das die sinn- 
volle Aktivität und Mitarbeit des Lernenden fordert. Ein guter Teil der Lernarbeit wird 
dabei durchaus schon bei der Eingabe des Lernstoffes in die Lerndatei geleistet. Der 
übende Umgang mit dem Programm festigt über die Zufälligkeit in der Reihenfolge der 
Abfrage den Kenntnisstand. Die Mitteilung der Zahl richtiger Antworten wirkt sich 
positiv verstärkend aus. Die Anzeige nicht beherrschter Angabenpaare (z.B. Vokabel- 
gleichungen oder fremdsprachliche Form — Formbestimmung oder Rechtschreibpro- 
blem -— Lösung) ermöglicht die Festigung des Lernstoffs im Gedächtnis. 

Zur Auffrischung und Sicherung des Kenntnisstandes ist es jederzeit leicht möglich, 
das Lernfile wieder von der Diskette zu laden und damit zu arbeiten. So kann man sein 
Lehrbuch, seine Formen und Tabellen, /dioms, Formeln oder Vokabeln kontinuierlich 
mit dem Programm Lernfiler begleiten und den Stoff für spätere Wiederholungen be- 
reithalten. 

Eine motivierende Nutzung des Programms könnte es von Zeit zu Zeit auch sein, 
wenn eine andere Person eine Datei oder ein ganzes File erstellt — etwa mit Wörtern, 
die eine Rechtschreibschwierigkeit enthalten (z.B.: s-ss—ß; vgl. hierzu das Beispielfzle 
auf der Diskette). Eine Gestaltung in Art von Kreuzworträtselfragen bietet sich hier 
an. Daß dann nur von einer bestimmten Seite zur anderen gefragt werden sollte, ver- 
steht sich von selbst. 

Andererseits ist es pädagogisch durchaus sinnvoll, daß keine Seite gegen Einsichtnah- 
me geschützt wird, was programmtechnisch möglich wäre, da das Richtige gelernt wer- 
den soll und daher verfügbar gehalten werden muß. 

Die auf der Diskette enthaltenen Beispielfiles zeigen ein kleines Spektrum der mit 
dem Lernfiler gegebenen Möglichkeiten. 


Kurze Programmcharakterisierung 


Lernfiler ist das ideale Instrument für alle, die Fremdsprachen lernen oder mutter- 
sprachliche Übungen gestalten wollen. 
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Die Idee der Lerndatei, die sich vom gängigen Vokabelprogramm unterscheiden soll- 
te, fand ihre Umsetzung in einem recht vielfältig einsetzbaren Masken-Layout am Bild- 
schirm, das zwar auch das »bloße« Vokabellernen unterstützt, vor allem aber 
grammatische Strukturen der Deklination und Konjugation »dynamisiert«. Mit dem 
Lernfiler kommt so etwas wie Bewegung in das statische Kasus- bzw. Personalformen- 
system. Da sämtliche französischen Sonderzeichen sowie der deutsche Zeichensatz mit 
Umlauten und ß implementiert sind, eignet sich das Programm für Rechtschreibübun- 
gen ebenso wie für das Training in Französisch, Italienisch (zwei Sonderzeichen) bzw. 


Latein und Englisch. 


Programmablauf 


In der vorliegenden Form, die den voll funktionsfähigen Hauptteil eines mit zusätzli- 
chen Routinen ausgestatteten komfortableren »Lernfilers« darstellt, der auf der zu die- 
sem Buch angebotenen Diskette enthalten ist, stellt das Programm die zur 
Lerndatei-Verwaltung und zum Üben notwendigen Programmteile zur Verfügung. 


1 Lernstoff eingeben 


Nach dem Programmstart wird zunächst die Eingabe aufgerufen. Ein Untermenü ver- 
zweigt — jenach Wunsch bzw. Notwendigkeit — in eine von vier Bildschirmmasken. 

Die erste Maske trägt am oberen Bildschirmrand die Bezeichnung »8 Deklinations- 
zeilen«. In der nächsten Zeile wartet hinter der Bezeichnung »Name:« ein Fragezeichen 
auf die Eingabe einer Kurzbenennung der in Arbeit befindlichen Lerndatei. Ein rever- 
ser Balken trennt diesen schmalen oberen Bereich von der eigentlichen »Datei«. Die 
diesbezügliche Bildschirmorganisation sieht je vier Doppelzeilen, die am linken Rand 
mit den Ziffern 1 bis 4 gekennzeichnet sind, in der oberen und unteren Hälfte des ver- 
bliebenen freien Bildschirms vor. Die Doppelzeilen sind als »linke« und »rechte« Zeile 
(etwa wie ın einem Vokabelheft) zu verstehen; in die linke wird beispielsweise eingetra- 
gen »/e murs, in die rechte als Entsprechung »die Mauer« oder »Nominativ Singular 
mask.«. Die Zeilen erlauben 33 Anschläge, die rechte Zeile liegt um drei Anschläge 
nach rechts versetzt unter der linken. Durch diese Anordnung konnte eine wenig sinn- 
volle Beschränkung auf ca. 17 Anschläge in echten rechten und linken Zeilenhälften 
vermieden werden. 

Die beiden deutlich gegeneinander abgesetzten Blöcke mit je vier Doppelzeilen stel- 
len in der oberen Hälfte den Singularbereich und in der unteren den Pluralbereich be- 
reit. 

Diese erste Maske ist z.B. für Französisch zu wählen, wenn es gilt, Deklinationsfor- 
men einzugeben, um sie anschließend zu üben. In entsprechender Weise sind die ande- 
ren Masken gestaltet. Die Unterschiede ergeben sich aus der Anzahl der Doppelzeilen 
bzw. aus der Numerierung dieser Zeilen. 
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Die zweite Maske ist für Latein gedacht, weil hier mit dem Ablativ ein unerläßlicher 
Kasus zusätzlichen Platz beansprucht. Auf den Vokativ, den sechsten lateinischen Ka- 
sus, kann man verzichten, da einzig die o-Deklination im Maskulinum eine eigene 
Form anbietet (Marcus — Marce; Publius — Publi); diese Ausnahme von der Norm 
sollte sich auch ohne Programmunterstützung merken lassen. In allen anderen Deklina- 
tionen entspricht der Vokativ dem Nominativ. 

Während die zweite Maske zehn Doppelzeilen in zwei Fünferblöcken enthält, be- 
gnügt sich die dritte Maske mit zwei Dreier-Blöcken, da hier Konjugationsformen ein- 
gegeben werden sollen. Die Voraussetzungen für die Eingabe der Formen der 1. bis 3. 
Person in Singular und Plural sind damit gegeben. 

Die vierte Maske enthält wie die zweite Maske zehn Doppelzeilen, die allerdings als 
ein Block von 1 bis 10 durchgezählt werden. (Um zusätzlichen Programmieraufwand 
zu vermeiden, wurde die trennende Freizeile zwischen dem oberen und unteren Block 
übrigens beibehalten. Eine Auswirkung auf den Programmablauf ergibt sich dadurch 
nicht.) Hier lassen sich Lerndaten beliebiger Art erfassen. Z.B. »Tod Goethes« - 
»1832« oder »höchster Berg Afrikas« — »Kilimandscharo«. Auch Vokabeln können be- 
arbeitet werden. 

Falls Zeilen in den Masken nicht beschriftet werden, dann setzt das Programm an 
die Leerstelle einen Punkt (.). Beim Üben wäre entsprechend in freien Zeilen als Ant- 
wort der Punkt (.) zu geben. 


2 Lernstoff von Diskette laden 


Wenn mit dem Programm erstellte Files auf Diskette vorliegen, können sie mit der 
LOAD-Funktion aufgerufen und zu Übungen herangezogen werden. Auch hier er- 
laubt das Inhaltsverzeichnis einen orientierenden Überblick. Nach dem Laden »weiß« 
der Lernfiler, welche Bildschirmmaske für das File gültig ıst, da die notwendigen Para- 
meter beim vorherigen Speichern mit in die sequentielle Datei übergeben wurden. 


3 Überprüfen und Ändern 


Sobald der Inhalt der letzten neu eingegebenen Zeile mit RETURN übergeben wurde, 
kehrt das Programm ins Menü zurück. Bevor nun der Speicherinhalt — falls er später 
noch benötigt wird — abgespeichert wird, kann er über die Editierfunktion kontrol- 
liert und gegebenenfalls berichtigt werden. Auch diesen Programmteil kann man wie 
jeden anderen mit der Taste »Pfeil nach links« (linke obere Taste) verlassen. 

Beim Editieren wird der Speicherinhalt mit der RETURN-Taste »durchgeblättert«. 
Nach Druck auf Taste »a« erscheint unter dem änderungsbedürftigen Eintrag ein Frage- 
zeichen, das auf die Notwendigkeit zur Neueingabe hinweist. Return schließt die Ein- 
gabe ab, die nächste Zeile wird angezeigt. Dieser Programmteil wird nach der Anzeige 
der letzten Zeile automatisch mit einem Sprung zum Menü verlassen. 
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4 Abspeichern 


Der Aufruf der SAVE-Funktion eröffnet zunächst die Möglichkeit, das Disketten- 
Inhaltsverzeichnis anzuschauen. So kann man entweder bewußt einen identischen Na- 
men für ein File wählen, um einen Alteintrag zu überschreiben oder auch nur einen 
geringfügig veränderten Namen verwenden, um den Alteintrag zu erhalten. Natürlich 
sind außerdem beliebige Neueinträge möglich. 

Seinen Namen hat das Programm übrigens daher, daß mit ihm Lern-»Files« auf Dis- 
kette abgelegt werden können. 


5 Üben des Lernstoffes 


Den eigentlichen Lerneffekt soll die Funktion »Üben« bieten. Dieser Programmteil 
läßt drei Arten der Abfrage zu: erstens »von links nach rechts«, zweitens »von rechts 
nach links« und drittens zufällig gemischt, wobei auch »rechte« Einträge »links« ausge- 
geben werden. Vom Zufallsgenerator gesteuert, erscheint in einer Zeile das Fragezei- 
chen und erwartet die Eingabe, deren Inhalt der Übende aus der zugehörigen 
»Fragezeile« erschließen kann, wenn er den Lernstoff schon beherrscht. Angenommen, 
dem Programm läge intern vor: »den Mann — Akkusativ Singular mask.«. Dann stün- 
de bei der Abfrage von »links nach rechts« am Schirm: 


4 — den Mann 
- ? 


In der vom Fragezeichen besetzten Zeile wäre nun einzugeben: Akkusativ Singular 
mask. Die RETURN-Taste wird zur Übergabe der Antwort nicht benötigt, da ein 
Längenvergleich zwischen erwarteter und tatsächlicher Eingabe erfolgt. Bei Erreichen 
der »richtigen« Länge wird aus der quantitativen Bewertung eine qualitative, indem das 
Programm beide Strings vergleicht. Falls eine Übereinstimmung vorliegt, erscheint das 
Fragezeichen an anderer Stelle, bis schließlich nach und nach alle freien Zeilen vom 
Übenden aufgefüllt sind. Sollte eine Nichtübereinstimmung, also ein Fehler, festgestellt 
werden, so ersetzt das Programm die Fehleingabe durch den korrekten Zeileninhalt, 
der allerdings in weißer Farbe erscheint, um den Eingriff des Programms zu signalisie- 
ren. Danach verläuft die Abfrage weiter in der eben geschilderten Weise. 

Die Bedienung der RETURN-Taste wertet das Programm im Übungsablauf als Ver- 
zicht auf eine Antwort und reagiert wie bei einer Fehleingabe. 


Bewertung der Leistung 


Sobald alle Abfragen bearbeitet sind, bleibt der Schirm einige Sekunden unverändert, 
um einen Überblick über richtige und korrigierte Antworten zu gewähren. Die folgen- 
de Anzeige gibt bekannt, wie viele Fragen korrekt beantwortet wurden. Darüberhin- 
aus werden alle Doppelzeilen-Inhalte am Schirm dargestellt, in denen eine Korrektur 
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nötig war. Da erst ein Tastendruck von hier ins Menü zurückführt, erhält der Übende 
Gelegenheit, seine Wissenslücken in aller Ruhe zu bedenken und auszugleichen. 


Kommentierung des Programm-Listings 


Hinweise zur Programmeingabe 


1. Da das Listing doch recht lang ist, sollte folgende Möglichkeit genutzt werden, um 
sich das Eintippen wenigstens an zwei Stellen zu erleichtern: 

Zeilen 2700-3400: Wie sicher allgemein bekannt, erlaubt der komfortable Basic- 
Editor der Commodore Computer das Kopieren von Zeilen, indem man mit dem Cur- 
sor auf die alte Zeilennummer fährt, eine neue Zahl statt der alten eintippt und RE- 
TURN drückt. Beim Listen des so behandelten Zeilenbereichs erkennt man, daß die 
alte Zeile noch existiert. Zusätzlich gibt es die neue Zeile mit identischem Inhalt. 

Diese Möglichkeit kann folgendermaßen genutzt werden: Man tippt die Zeile 2700 
ein. Nach Abschluß mit RETURN geht man mit dem Cursor auf die Zeilennummer 
und ändert sie in 2710. Nun fährt man mit dem Cursor auf die »1« bei... AZ = 1.., 
ersetzt sie durch die »3« und drückt RETURN. Damit ist Zeile 2710 eingegeben. Ver- 
fährt man entsprechend — eventuell unter Einsatz von INSTIDEL - in den folgen- 
den Zeilen, so kann man viel Tipparbeit sparen. Dieselbe Möglichkeit zur 
Eingabebeschleunigung hat man in den Zeilen 4090 bis 4290. In Zeile 4290 darf dann 
allerdings das »:return« beim Eintippen nicht vergessen werden. 


2. Einige wenige Zeilen (z.B. 3810) füllen beim Abtippen zwei Bildschirmzeilen völlig 
aus. Der Cursor wandert hier schon in die dritte Zeile, was der Basic-Editor nicht akzep- 
tiert, so daß mit RETURN die eben eingegebene Zeile nicht übernommen würde. 
Notwendige Abhilfe: man schickt den Cursor mit den Cursortasten eine Zeile zurück, 
so daß er wieder auf der zuletzt geschriebenen Doppelzeile blinkt. Nun wird mit RE- 
TURN die Zeile korrekt übernommen. Eine andere Möglichkeit zur Vermeidung des 
Problems: Man gibt das Basic-Wort DATA abgekürzt (»dA«) ein. Schließlich kann man 


auch auf den Leerraum hinter der Zeilennummer verzichten. 


3. Wichtig! Sichern Sie das Programm vor dem ersten Start auf Diskette! Die Manipula- 
tion am Zeichensatz könnte zum irreparablen Absturz des Programms führen. Zum 
Austesten des Programms sollte Zeile 300 so geändert werden, daf$ der Zeichensatz vor- 
erst nicht verändert wird: ...: REM: GOSUB 3920. Nach der Sicherung der zum Lau- 
fen gebrachten Programmversion kann dann das REM entfernt werden. Jetzt müßte 
— fehlerfreie Eingabe vorausgesetzt — nach dem nun länger dauernden Programmstart 
der Sonderzeichensatz zur Verfügung stehen (genauere Angaben später). 

Das Programm sollte von jetzt an nur mit STOP ohne RESTORE gestoppt werden. 
Das gewohnte STOPIRESTORE versetzt den Bildschirm in einen unkontrollierba- 
ren Zustand. In der Regel gibt es Abhilfe, indem noch einmal STOPIRESTORE ge- 
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drückt wird. Nun wird »blind« RUN eingetippt und RETURN gedrückt. Das 
Programm sollte daraufhin ganz normal auf geklärtem Bildschirm starten. 

Da das aber nicht zu garantieren ist, muß die Aufforderung zur Programmsicherung 
vor dem ersten Start unbedingt befolgt werden! Um unbeabsichtigten Programmab- 
bruch ganz auszuschließen, kann man Zeile 260 ergänzen: .. .: POKE 808,234. Damit 
sınd STOPIRESTORE und — was hier bedeutungslos bleibt — LIST ausgeschaltet. 


Die Programmstruktur 


Zu Beginn werden Strings definiert, die als Ersatz der schwer identifizierbaren Commo- 
doresteuerzeichen dienen. Nur in den INPUT-Anweisungen Zeile 1850 und 2040 
konnten RVS ON und RVS OFF nicht ersetzt werden. 

Die Farbgestaltung (Zeile 260) kann beliebig verändert werden. Bedenken sollte man 
jedoch, daß die Computer-Korrekturen in ihrer weißen Schrift erkennbar bleiben soll- 
ten, ein Kontrast zur übrigen Schrift also gewährleistet sein sollte. 

Aus dem Wahl-Menü führt der Verteiler in Zeile 510 zu den gewünschten Pro- 
grammstationen. 

Den größten programmtechnischen Aufwand erfordert die »Eingabe«, weil hier (Zeı- 
len 530 — 1490) vier Bildschirmmasken zu verwalten sind. Zeilen 670 — 740 stellen die 
erforderlichen Variableninhalte bereit. Die zugehörige Maske wird von den Zeilen 
800 — 1010 erstellt. Die Einträge in die drei Dateibereiche »Name, linke Seite, rechte 
Seite« werden von den Zeilen 1020 bis 1310 organisiert. 

Eine INPUT-Routine (Zeilen 1320 — 1490) überwacht ın allen drei Bereichen die Ta- 
statureingabe, blendet z.B. die Cursorsteuerung aus, positioniert die Zeichen am Bild- 
schirm (etwa Zeile 1470) und verhindert Einträge von mehr als 33 Anschlägen. Die 
letzten erlaubten fünf Anschläge lösen je einen Warnton aus. 

Eine etwas anders arbeitende INPUT-Routine (Zeilen 4530 — 4670) wird von der Än- 
derungsfunktion (Zeilen 1510 — 1750) angesprungen. 

Die SAVE-Routine schreibt eine sequentielle Datei auf die Diskette. Als Besonderheit 
sei erwähnt, daß alle Eingaben, die der Benutzer gestaltet, von G$ — das ıst CHR$ (34), 
also das Anführungszeichen — eingerahmt werden. So ist es möglich, auch solche Zei- 
chen in den Dateieinträgen zu verwenden, die die Betriebssysteme von Rechner bzw. 
Floppy sonst als Trennzeichen werten — z.B. das Komma. SAVE- und LOAD-Routine 
gemeinsam bieten den Aufruf des Inhaltsverzeichnisses an. Ebenso gemeinsam fangen 
beide Programmteile Diskettenfehler mit entsprechender Meldung (Zeilen 4690 — 4750) 
ab. | 

Das eigentliche Üben organisieren die Zeilen 2160 - 3570. Auf die Möglichkeit, »lin- 
ke« und »rechte« Einträge wechselnd abfragen zu lassen, soll kurz eingegangen werden. 

Falls die Wechsel-Abfrage gewählt wird, tritt ein Vertauscher-Flag (VT(E)) in Aktion. 
In Zeile 2450 wird, falls AZ = 3, eine Zufallszahl erzeugt (1 oder 2 ist möglich). Wird 
eine 2 generiert, dann werden für die in Arbeit befindliche Doppelzeile (um die wieviel- 
te Zeile es geht, steht in der Variablen E) die Inhalte der linken und rechten Zeilen- 
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»hälfte« vertauscht. Die Flagge (VT(E)) für die Doppelzeile wird auf 1 gesetzt. Dies ist 
notwendig, damit nach Beendigung des Übungsdurchgangs oder nach einem Abbruch 
mit der Escape-Taste (Pfeil nach links) die Vertauschung rückgängig gemacht werden 
kann. Dies geschieht entweder automatisch nach richtigen Einzelantworten in Zeile 
3530 durch Rücktausch mit Löschung der Flagge (VT(E) wird 0) oder für alle betroffe- 
nen Strings nach Abbruch in den Zeilen 3700 — 3740. Erwähnenswert sind auch noch 
die Zeilen 2640 — 2690, in denen überprüft wird, ob die für die Abfrage in N(W) erzeug- 
te Zufallszahl schon aufgerufen wurde. Dies geschieht in Zeile 2680. Bei Wiederholung 
einer Zahl wird der Zufallsgenerator in Zeile 2650 nochmals aufgerufen. In den Zeilen 
2700 — 3380 werden die je nach gewünschter Abfrageweise vorausgewählten Zeilen an- 
gesprungen, wo die Variablenwerte für die jeweils in der Abfrage befindliche Zeile 
übergeben werden. Anschließend wird zur Abfrage-Routine in den Zeilen 3390 — 3570 
verzweigt. In AC$ wird der Eingabestring bis zur Höchstlänge ] (Zeile 3410: ] = LEN 
(A$ (E))) zusammengesetzt und in den Zeilen 3540 — 3560 bewertet. 

Wenn die in Zeile 2640 definierte Schleife (ED ist hierbei die Höchstzahl der von der 
Maske bereitgehaltenen Zeilen) abgearbeitet ist, folgt die Fehlerbewertung in den Zei- 
len 3590 — 3680. 

Die Routine, die das Inhaltsverzeichnis ermöglicht, wird in den Zeilen 3750 — 3870 
bereitgestellt. 

In den Zeilen 3920-4510 wird die Änderung des Zeichensatzes vorgenommen. 

Welche Zeichen verändert werden, läßt sich von Zeile 4090 — 4290 leicht an den Zah- 
len ablesen, die mit 8 multipliziert werden. Diese Zahlen stellen die CHR$-Codes be- 
stimmter Zeichen dar — 115 etwa steht für das im ROM-Zeichensatz enthaltene 
Herzsymbol. Die Werte, von denen die Pixel der neuen Zeichen bestimmt werden, 
werden jeweils aus den DATA-Zeilen 4310-4510 eingelesen. 

Die Sonderzeichen können nach dem Programmstart durch bestimmte Tastenkombı- 
nation abgerufen werden. Ausnahmen stellen die Pfundtaste, die ein ß produziert, und 
der Potenzpfeil, der das französische Cecedille (g) auf den Schirm bringt, dar, weil sie 
ihre neuen Zeichen direkt ausgeben. Die übrigen Sonderzeichen erfordern gleichzeiti- 
ges Gedrückthalten der Commodore-Taste. In dieser Kombination erreicht man mit 
den Tasten QWERTYUIOP@#* den französischen Zeichensatz. Entsprechend ergeben 
die Tasten ASDFGH die deutschen Umlaute (6ÖäÄUU), Commodore-Taste plus »g« 
erzeugt z.B. das kleine ü. 
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Information zu Programmversionen auf Diskette 


In der hier vorliegenden Form ist das Programm auf der parallel zu diesem Buch ange- 
botenen Diskette enthalten. Darüberhinaus bietet diese Diskette einen voll ausgestalte- 
ten Lernfiler mit einer Reihe weiterer Funktionen. Vor allem hält das große Programm 
15 Bildschirmseiten gleichzeitig im Speicher, die lerntechnisch völlig unabhängig von- 
einander verwaltet werden. Deshalb kann man den Programmablauf so steuern, daß 
bei wiederholtem Aufruf eines schon bearbeiteten Übungsschirms nur die fehlerhaft 
angegebenen Formen bzw. Zeileninhalte zur Abfrage herangezogen werden. 

Das Ergebnis der Lernbemühungen wird in einem Prozentwert für alle Fragen und 
Antworten seit dem jeweiligen Programmstart ausgegeben und gleichzeitig in konkre- 
ten Zahlen (»von 10 Antworten waren 9 richtig«) für den aktuellen Einzelschirm. 

Auch eine Dokumentation des Speicherinhalts mit einem Drucker ist anwählbar. Die 
Sonderzeichen werden dabei intern für den Druck aufbereitet. Aus ß wird sz, aus ä 
wird ae usw. 

Dazu kommen die Möglichkeiten, einzelne Schirme innerhalb der 15 zu löschen und 
dafür andere einzutippen oder von Diskette nachzuladen, die Fehlerwertung auf Null 
zu setzen, die Farbgestaltung des Bildschirms während des Programmablaufs zu ändern. 
Als Belohnungen für Lernerfolge sind eine kleine Tonfolge und eine abstrakte Farbgra- 
fik vorgesehen. 


(Claus Richter) 


10 rem KERRERKTRRRRTRK HN IF RN 

28 rem * # 

30 rem" * Lernfiler * “ 
408 rem * * 

so rem KERKRERRHRRRRTT KH T RN 

ad : 


78 rem" Copyright 1985 by 2 
8Qd rem moderne verlags gesellschaft 


90 rem : 

108 rem" Autor: Claus Richter ” 
110: 

158 : rem #*%* vorbereitung ##* 

155 : 

162 rem -— bildschirmsteuerung -------- 
165 : 


178 cdFt=chr# (17) :rem cursor down 
188 ce#t=chr#+(29) :rem cursor rechts 
198 cl$=chr#(157)srem cursor links 
208 cc#=chr#(147):rem clear home 
218 rof=chr#t(18) :rem reverse on 
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228 rft=chr#t(1436):rem reverse off 
2358 cu$=chr#+(145):rem cursor un 
248 ch#=chr#+(19) :rem cursor home 
250 : 
262 poke53280,8:poke53281 ,B:poke64&,8 
278 dimee# (56) „e#(11) ,zuFf(36) „uuFf(36) „ae 
Fi56) ,aF (36) „uFlI6) „axF (Ib) :x$=chrt (13) 
288 dimac#(536) ,vt (11) :ch=129:g#=chr$ (34) 
:21=>28:22=33 
2970 let=" 

"rem 55 spaces 
>@8 pokeS3272,23:90sub3758: gosub3928 
>10 
328 
3350 
548 printcc$:print 
3s5@ printtab(12)ro&" Lernfiler '"rf# 
Ss68 printtab (12) ro#"Claus Richter"rf# 
578 print:print:fori=1toF:printceft::next 
588 print"Formen eingeben "ro#" 1 "rf#$ 
598 print: fori=1to9:oprintce$::next 
400 print"Formen einladen "ro" 2 "rf# 
418 print:fori=1toF:printceft::next 


rem #** menuewahlen ##* 


428 print"Formen edieren "ro#" IS "rf# 
438 print:fori=1to9:printce$; next 
4428 print"Formen saven "rot" 4 'rf# 


458 print:print:print 
468 print: fori=1t0o9:printceft;, :next 
472 print"Formen ueben "rot" 3 "'rf#$ 
488 print:print:print 
498 printtab(SPro#" Lernfiler 
filer "rf# 
saB poke198,8:wait198,1:getat:ifvaltaF)ı 
lorval (a$) >5thenSdd 
S1@ onval (at)goto320,1959,1522,1760,2158 
:rem verteiler 
28 printcct:print 
358 printcet:cet;ro#f"Eingeben 
"rf# 
342 print:print:print 
Soßd printceft:ce#"Deklinationsschema mit 
"rof" 8'rf#" Formen "ro#f" 1 "rf# 
S6Q print:print:print 
78 printcef;cef"Deklinationsschema mit 
"ro&'"ißd"rft" Formen "ro#" 2 "rf# 
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„od print:print:print 
378 printcef:cef"Konjugationsschema mit 


"ro" &'rff" Formen "rot" 3 "rf# 
&QB print:print:print 
612 printceft:cef"Abfrageschema mit 


"rof'"'1ß"rft'" Faarzl. "rot" 4 'rf$ 

28 print:print:print:print 
620 printceftf:cef:ırot'"Menue 

rt 

&4B8 poke1978,B:wait198,1:getaft:ifvaltat)“ 
lorvaltaf) 4thenifasc (a#)  >9P5thend4Q 
508 ifat=chr# (95) then:4d 
saß fori=ltoll:eft(li)=""ruF(li)=""rmext:zo 
$= s298 
678 ifat="1"thenedf=" Deklinations":ed=8 
‚el=8:e2?=9I: il=4:il=11:1?=F:iier7t1:id=?d 
sn ifat="1"theni5=l12:i6=} 
978 ifat="2"thenedt="Deklinations"sed=1d 
‚el=-1B:e?=11: j1l=-5:il=1I:12=1:13=T 
‚88 ifat="2"theni4=22:15=14:iöbel 
7/18 ifa$="S"thenedt=" Konjugations":ed=&6 
0 0. 2.00. 

a ifat="Z"theni4=18:15=1Q:iöd=- 
730 ifaf="4"thened#t=" wer ed=1® 
‚sel=1B:eZ=11: j1=-5:1ı1l=-13:1i2=l:ilI=2) 
748 ifat="4"theni4=272:15=14:1i6=1 
750 aosub77B:aotoldIQO 


768 : 

778 rem ** eingabe formen *# 

’/98 : 

79780 pokei178,0 

802 printcc$" 'ed;ed#"zeilen 


81Qd print"Name:" 

8280 printro®"Angabe 
Entsprechung'rf%: 

838 i=B 

840 forı=>toelstep?z 

gs j=j+i 

852 pokeZz11,8:pokez1l4,1:5ys538732 
8702 Brintels;; 

880 nexti 

872 j=Q 

788 ifedt=" Lern"thenj=3 
718 fori=14toi4dstepzZ 
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720 
958 
748 
9580 
968 
770 
7808 


j=jt+i 

poke211,8:poke214 ,i1:5ys358732 
printcl$;:j 

nexti 
fori=Itoi4stepZ:ifi=iltheni=i+ti6 
pokeZil,Z:poke214,1:s5ys38732Z 
print n_ 


992 pokeZill,4:poke214,i+t1:5ys58732 

1898 print"—" 

181080 nexti:return 

1015 : 

1028 rem ** zuordnung eingeben ##% 

1025 : 

1830 ur="" 

1840 zof="":z=Qd: zus(z)="":1=5:ii=l:poke2 
11,5:poke214,ii:svs387532 

1258 pokesc ,„s3:print"?"ıc1l$::poke2B4,0:g 
osub15338 

1858 ifur="then34® 

1070 zoF=uf 

10808 : 

1892 rem *%* lernstoff eingeben ##* 

1100 : 

111@ rem ** linke seite #* 

1120 : 

11350 i=1 

1148 fore=itoel 

1150 et(e)="":uF="":z=DQ 

1158 i=i+Z:ifi=iltheni=i+ti2 

1178 1=3:ii=-i:pokeZil,1l:poke?14,i:5sys587 
32 

1188 pokesc „s4:print"?"scl#s; s:spoke284,2:qg 
osub1538 

1198 ifus=chr$ (95) then34B 

1288 ef(e)=uf:gosub122@:nexte 

1218 ife>elthengoto342 

1228 : 

1250 rem #* rechte seite ++ 

1240 : 

1258 ife=1theni8=2 

1268 z=B:uFle)=""ruF="" 

1278 i89=18+2:ifi8=15theni8=i8+i6 

12828 ii=i8:1=5:pokesc ,sö:pokeZill,l:poke2Z 


14,11 :5ys38722 


1290 


138 


print"?"ıcl$, :poke2B4 „dB: gosub15358 


13880 ifut=chr#(75S)then return 

1318 uff(e)=uf:return 

1315 

1320 

1325 

1350 aetuu8 (z) sifuut(tz)=""then1SS® 

1348 ifpeek (287) >Bthen1 548 

13580 poke2B4,1:ifuus(tz)=chr#(975)then e=e 

1:uF=suuf(z)rreturn 

13458 ifuustz)=chr$(17)oruufF(z)=chr#$(1No 

ruuf(z)=chr#(Z2P7?)thenuuft (z)=""saotol33ß 

1378 ifuus(z)=chr# (145) oruu8 (z)=chr# (147 

ıthenuus:(z)=""soaotol33d 

138B ifuuFrtz)=chr# (157) oruus (z)=chr# (148 

thenuuF(z)="":aotol33B 

12398 ifuus(z)=chrt (2@)theniflen (uf) >Bthe 

nut=leftt(u#.len(u#)-1) 

1408 ifuus(tz)=chr#(Z@O)thennokezill.1:poke 

214 ,ii:sys3873Z:printlef; :p=z:p=p-1 

1418 ıifuuFr(tz’3=chr#(Zd’thenpokerll,.l:poke 

214 ,i1i:sys38732:printuf; :ifp“@thenp=d 
1428 ifuufr(z)=chr#(28)thenpokezZil,l+tlent 

uf):poke214,ii:sys58732:z=p:g0to127 
1438 ifz>Z28thengosub3888 

14408 ifz>55thenuus(z)=chr#t(15) 

1459 ifuuF(z)=chr#t13)thenpokezZil,1l+tz:po 

ke214,ii:sys58732:print" "sreturn 

14680 u$=uFf+tuuf (zZ) 

1478 pokeZil,1l+tz:poke214,11:5v559752 

1488 printuuf(z)ys:z=z+ti:pokeZill,l+tz:poke 

214 ,i1i1:5ys38752:print"?"sc1%; 

14990 pokeZil,1+tz:poke214,11:5ys538732Z:pok 

e2B04,8:gotoil33d 

1300 : 

1518 rem ##** edieren / aendern ##* 

1515 : 

1528 ifzo$=""thenprintcctcdfro#f"Speicher 
leer !"rf*:fori=1t0o88@:nexti:aotao34Qd 

1538 printcc#tıcd$:ce$s:ceft:ce$; 

1548 print"Speicherinhalt sichten/ aende 

rn":printcef:ıcef;:cef; 

1558 print"Aendern ";sro®" a "rf%$; 

1568 print" weiter mit Return":print 

1578 printzof® 


rem ---- inputroutine ------——- 
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1588 poke198,0:wait198,1:getaft:ifaf=""th 
en1598 

1578 ifa$="a'thengosub4532 

1608 ifas=chr#(95) oran#t=chr#(95)thenaf= 
"Nsant="":qgoto54®d 

1618 ifa#="a'thenzot=ans 

16828 print 

164580 fore=itoed 

1648 printe#(e) 

1858 poke1978,0:wait198,1:getaf 

1668 ifat="a'thengosub45F3D2 

1678 ifa$=chr$ (95) or an$=chr#$ (95) thenas=" 
"ant=""te=sed:goto1740 

16888 ifat="a'thene#(e) =ant:print 

1898 printu8te) 

1788 poke198,8:wait1978,.1:getaf 

1718 ifa$=chr$ (95) oranf#=chr# (95)thenas=" 
"kant=""se=ed:aoto1740 

1728 ifa$="a'thenurt(e)="":gosub45530 

1730 ifaf="a'"thenu® (e)=anft:orint 


174B nexte 

1758 oaotoS4® 

1760 : 

1778 : ren *#* save-routine ##% 
1775 3: 


1788 printcct:cdts: cef:ceftsceft; 

17980 print"Diskette wird initialisiert" 
18808 closelS3:0pen153,8,15,"180" 

1810 aosub449d: rem *#** fehlerkanal *# 
1828 printcef:;ce$:cet:rof"Save-Routine": 
rt# 

18308 printcdt;ıceft:cet:ceft; 

1848 print"Directory j/n?":poke178,8:wai 
t198,1:getast:ifas=" j"thensys47152 

1858 input"Wile-Name: WB": fit 

19860 iffifF="theni1742 

1878 closeZ:open2,8,2,"'"B:"+fiF+",s,w" 
1888 print#2,gf; zofı gfı xt;ed#fı x» tF5edıx fe 
lıxFreZıxty jlıxtıllıxtrizZı$ıisın$ı 

1898 print#2,14;:x$319ıxF#316;x# 

1782 fore=1toed 

1718 print#2,gtsetl(le)sgtsxtiıgtsuffe),gf; 
x$5 
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19280 
19738 
1740 
19750 
19748 
19765 
1770 
1782 
e=1 

1972 


nexte 
gosub4HYB 
closez:goto240 


rem ** load-routine ##* 


printcctıcdsıcetsceft;:cef; 
print"Diskette wird initialisiert": 


closel1S5:0pen15,8,15, "18" 


202 gosub45970: rem **# fehlerkanal ##+ 
2BaS : 

212 printcef:ıceft:ıcet:rof"lLoad-Routine"s 
rt# 

DZ printcd$sceftf:ıceticeft; 

2238 print"Directory i/n”":pokel98,d8:wai 
t178,1:getaf:ifat=" j"thensys47152 

22480 input'WFile-Name:ff's fit 

ZBS0 iffiFr=chr#(95)thenZ13d 

=B&2 close2:open?2,8,2,"B0:"+fiF+",s,r" 
RB input#Z,zof ,edt,ed,ei,eZ2,31,„1i1,12,1 
3,14,159,16 

2080 rs=st 

=B7B input#2,etr(e) ,uF(e) 

1900 ifst=54thenZ2130 

118 gosub45Y7B 

2128 e=e+t1l:goto227% 

120 closez:goto:4d 

2142 : 

2150 : 

2160 : rem ** formen ueben ## 

2170 : 

2188 ifzof=""thenprintcc$ıcdtfyıcdf:cet:ce 
$,cef;rof; 

2198 ifzof=""thenprint"Speicher leer!"ır 


f$: fori=1told@d:next:goto34d 


2200 


printcctıcd#ıcdFf:ıtab(TVMedsedt"forme 


n veben" 


zz18 


printcedtı cds cdFfıcd#;tab (4A) "Abfrage 


links -> rechts "srofF;" 1 "srf#$ 
2228 printcdf:ıcd#;tab(A)"Abfrage rechts 


—» links 


"amoss: 2 "erts 


2258 printcdtfscdt;tab (4) "Abfrage wechsel 


nd 


. 


"sross," 5 "ırtf$ 
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2240 


poke178,2:wait178,1:getasf:ifval(af) 


“lorval (a$) >3goto2248 


Pike] " 
2510 
z0F 

2520 
2350 
2540 
Pike te] 
2560 
25780 
2588 
2370 
200 
2610 
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2250 : 

2268 gosub?7öß:rem *** bildschirm-maske 
2278 : 

2288 fori=1tolB:ifefti)=""thenefti)="." 
2292 ifusti)=""thenusti)="." 

2308 next 

2310 : 

2328 ifa$="1"thenaz=1:g40t02368 

2338 ifa$="2"thenaz=?2:g0t0?24909 

2348 ifa$="Z3"thenaz=3:fore=sitoed:vt(e)=®d 
next 

2350 : 

2360 : rem #** linke formen eintragen 
2370 : 

2588 i=1:poke211,5:poke214,1:sys58732:pr 
intzof 

2398 fore=itoel 

2408 i=i+Z:ifi=siltheni=i+ti2 

2418 ife=1thenii=2 

2428 ii=iitZ:ifii>-isthenii=siitid 

2458 rr(e)=ii 

2448 vt(te)=B:pokeZil1,3:poke214,1:5y5387>2 
2 

2458 ifaz=3thenif (int (rnd (BD) #2) +1)=2Zthen 
er$=ef(e):efle)=uF(e) :ufFl(e)=-erF:vt(e)>-1 
2460 printet(e) 

2478 nexte:gosubZö1ß: gosub358R: goto34R 
24808 : 

24970 


: rem *%** rechte formen eintragen 
poke211,11:poke214,1:sys38732: print 


i=1 

fore=ltoel 

i=-i+tZ:ifi=siltheni=i+ri2 

rl(e)=i 

ife=ithenii=2 
ii=-iitZ:ifii=isthenii>=iiti6d 
poke211,5:poke214,ii:sys58732 
prıntuf*(e) 

nexte:gosub261B: gosubF3580: aot 0342 


2628 
2638 
2640 
2658 
2660 
26780 
zug 
WL =), 
27800 
[ra] 

2718 
Q 

2728 
Q 

2730 
2748 
2758 
2760 
2770 
780 
279708 
2800 
805 
2818 


$(e): 


2820 


$(e): 


2830 


: rem *%* uvebungsabfrage #* 

aw=d 

forw=1toed 

n{w=int (rnd (B)*ted) +1 

: ifw=1then27B02 

- fork=1tow-1 

- ifn(w)=n(k)then2dS5d 

> nextk 
ifaz=landed=1ißthengaosubZ79B: 90to337 


ifaz=Ianded=18thengosub2778: goto3 
ifaz=Zanded=18dthengosub2F720:g0t03537 


ifaz=landed=Sthengosub3Q2B: goto33972 
ifaz=Sanded=8thengosub323Q: 0003370 
ifaz=-Zanded=8Bthenaosub31S5Q: goto3372 
ifaz=landed=d&thengosub325Q: got0o3370 
ifaz=Sanded=dthengosub 3250: goto327% 
ifaz=Zanded=dsthengosub 32390: got0o3372 
rem ** abfrage 1 rechts #* 


ifntw)=1thenp=S:pp=4:e=n (w) saf(le)=u 
return 
ifn(w) =Z2thenp=S3:pp=d:e=n (w) saft(e)=u 
return 
ifn (tw) =3thenp=3:pp=8: e=n (w) saFle)=u 


$(te):return 


2840 


ifntiw)=4thenp=5:pp=1B:e=n (w)sat(e)= 


uFte):return 


29580 


ifnt(w=5thenp=5:pp=12:e=n (w) sa$l(e)= 


uFle)sreturn 


2860 


ifn{w)=5thenp=5:pp=159:e=n (w) :a#tl(e)= 


uFf(le):return 


2878 


ifn(w)=7thenp=S5:pp=17:e=n (w) safle)= 


uf(e):return 


2880 


ifn(w)=8thenp=5:pp=19:e=n (w):atfe)= 


uf(e)sreturn 


28978 


ifn({w =9thenp=3:pp=21:e=n (w)sat(e)= 


uf(e):return 


2928 


ifn{w=1ßthenp=S:pp=Z3:e=n(w) satte) 


zuf(e):return 


2918 


Lernfiler 
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2920 rem ##* abfrage 18 links *# 
2920 : 

2738 ifn(w)=1lthenp=F:pp=F:e=n (w) rafle)=e 
#(e)l:return 

29748 ifntw)=Zthenp=FT:pp=S: ern (w) satle)=e 
*(e)lsreturn 

2958 ifntw)=TFthenp=3:pp=7:e=n t(w):affe)=e 
$(e):return 

29768 ifntw)=4thenp=T:pp=Y:e=n(w)saftle)=e 
#(e)l:return 

2978 ifntw)=Sthenp=T:pp=ill:er-n(w)sastle)= 
ef(e):return 

2988 ifntw)=äthenp=T:pp=14d:e=n (w):astle)= 
et(e):return 

29978 ifn(w)=7thenp=F:pp=ld:e=n(w):atle)= 
et(e):return 

>SaaB8 ifntw’=Bthenp=F:pp=18:e=niw):asle)- 
et(e):return 

SB1B ifn(w)=9thenp=3:pp=2B: e=n (w) ratfe)= 
et(el:return 

Ss2zB ifntwi=1l1ßthenp=I3:pp=Z2: een (nd) satte) 
=e#t(e):return 

3030 : 

SQ42 rem #* abfrage 8 rechts ## 

>45 : 

saS5ß ifniw)=lthenp=S:pp=4:e=n (w) raFle)=u 
:(e):return 

SBARB ifn(w)=Zthenp=S:pp=6:e=-n (w)satle)=-u 
(e):return 

>a78B ifntw)=3thenp=S:pp=B:e=n (w) saftle)=u 
(e):sreturn 

SQ8B ifntw)=4thenp=S:pp=1ß:e=ntiw)saste)-= 
u$(te):return 

>870 ifn(w)=5Sthenp=5:pp=15:e=n {w)sa#t(e)> 
u$(e):return 

S1B0 ifniw)=öthenp=3:pp=17:e=ntiw):atle)- 
uflte):return 

3118 ifntw=7thenp=S:pp=1F:re=ni(w):at(e)- 
ufte)l:return 

s12B ifn(w)=Bthenp=S:pp=2l:e=n ({w):aft(e)- 
uf(le)l:return 

3138 : 

>140 : rem #* abfrage 8 links ## 

3145 : 
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31580 ifn{w’=1thenp=F:pp=F:e-n (w) ıaft(e)=-e 
$(e):return 

s1i6B ifntiw)=Zthenp=3:pp 
$(e)l:return 

3178 ifntw)=F3thenp=F:pp=7:e=n (w) sat(e)=e 
$(e):return 

Ss188 ifntw)=4Athenp=3:pp=F:ie=n (vw) ratle)=-e 
(e):return 

3198 ifntw)=5Sthenp=I:pp=14:ern (w) sa#fe)> 
et (e):return 

SzEORB ifn(iw)=östhenp=T:rpp=lä:e-n (w)ratle)>- 
et (e):return 

szı18 ifn{tw)=7thenp=3:pp=18:e=n (tw) ra$(e)>= 
et (e):return 

S22B ifn(iw)=Bthenp=F:pp=Zß:e-n (w)sa$(e)= 
ef(e)l:return 

S230 : 

3240 rem *#* abfrage 6 rechts ##* 

3245: 

32580 ifn (tw) =1thenp=5:pp=4:er-n (w)satle)-u 
Ffe}rreturn 

Seöß ifntw)=Zthenp=I:pp=ö:ern (w)safl(le)=u 
Zie)l:return 

278 ifn(tw)=Sthenp=I:pp=8:esn (w) safle)=u 
+(e):return 

2288 ifntw)=4thenp=S:pp=15:e=n tw) ratte)= 
uF(e)ıreturn 

Ss29B ıfn(w)=Sthenp=I:pp=17:se=rn(w)raste)= 
uf(e)sreturn 

„208 ıfn{iw)=öthenp=-S:pp=197:e=n (w)rafle)= 
uFrlte):return 

S>18 


3320 


Zıezn{w)satle)=e 


rem *#* abfrage & links ++ 
3330 ifn(w)=1thenp=S:pp=Strern (w)saf(e)=e 
:(e)lsreturn 
2548 ifn(w)sZthenp=i:pp=ät:esn (w)satite)=e 
(e)l:return 
Ssasa ifntw’=3thenp=3:pp=7:e=ntw)rasf(e)=e 
a 

S6B ifntw)=4thenp=3:pp=1l4:e-n (w) safle)= 
en 
3378 ifn(w)=Sthenp=F:rpp=1öd:e=n (w):atle)= 
et(e):return 


Lernfiler 
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3880 ifntw)=öthenp=I:pp=18:e=n (w):astte)= 
et(e):return 

3378 
5400 
2485 
S41B ac$t="":j=len(a%(e)) 

3420 poke2il,p:poke?14,pp:sys58732:print 
"?PPscl$; 

5458 foraf=1toj 

3440 getax$taf):ifaxf(af)=""then344D8 
5450 ifax#t(af)=chr$(2Q8)thenax$(af)=""saf 
=j:goto341B8 

S460 ifax$taf)=chr$ (95)thengosub349ß:ret 
urnirem menue uveber stringtauscher 

3478 ifax$(af)=x$thenaf=j:poke2il,p+taf:p 
oke214,pp:sys58732: print" ";:90t035208 
3482 poke2Zi1l,p-1i+taf:poke214,pp:sys58732: 
printaxttaf); 

>49B ifaf=jgoto551® 

3502 pokeZil,p+taf:poke214,pp:sys58732:pr 
int"?"s 

>510 act=acttax#ttaf) 

3028 nextaf 

5358 ifvt(e)=ithenerft=ufF(e):ufFte)=-eft(e): 
e$(e)=erf:ıvt(e)=ßd 

sa4D ifact“>atfte)thenpokezil,p:poke2l14,p 
p:sys38732:printchr$ (SI) ;afle);chr#(ch) 
saooßd ifac$t<>a#te)thenpokel98,B: ee=e: aw=sa 
w+tl:feflee)=efte)+" "+tufFle) 

So6aBß ifact=atte)thenpokeZil,p:poke214,pp 
:sys087Szıprintafr(e) 

=37/8B nextw:az=B: fort=1t02QBQ@:nextt:retur 
n 


rem #** getabfrage #%* 


3580 : 

S570 : rem *# fehlerliste *## 

26082 : 

Sä1B ifax$(laf)=chr# (95%) thenaf=j:w=sed:ret 
urn 


s628 printcctıcd$ı cds cd$; ro$; "Wiederhol 
"sırf$ 

34530 foree=itoed 

Ss640 printfettee):print 

Ssu50 feftee)="" 

SsaaQd nextee 
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3678 printch#"Von"ed" Formen wufltest du 
"ked-an)" "sro®"Taste"srf® 

S688 pokel78,2:wait178,1:return 

Sa9B : 

Ss7/008 : rem #%*+ strings ordnen *##* 

37/18 fori=ltoed 

37/28 ifvt(i)=Iithenert=eftti):sef(i)=ufti): 
uF(i)=er$ 

3738 nexti 

37/48 return 

37/50 : rem ##* sys-directory ##% 

3760 : 

3778 tordi=49152t04972536 

3788 readdr 

37/98 pokedi „dr 

S8808 nextdi:return 

s81lB data1l67,536,1553,251,169,251,1535,197, 
169,288,133,188,167,21,1353,183,169,28,133 
3820 datalBs, 167, 96, 133,185,; 32,213,243,1 
65,186,32,180,255,165,185 ‚>2,150,255,169 
3838 dataßd93.127.144,168, ‚03,132,291,32,16 
5,255,133,252,164, 144,208, 47,22,165, 255 
3848 datal64,144,288,48,164,251,136,208, 
233,166,252,32,205 

850 datal897,167,322,32,218,255,32,165 
3860 data255,166, 144,2088,18,179,249,06,: 
2,218,25359,76,76,172 ‚169, 13,32 

Ss878 datazid, 255, 160 ‚02,208, 198,32,66,24 
6,76 
Ss8882 
28978 
>s788 si=-534272:pokesi+t24,15:pokesı+t7,207: 
pokesi+t8,34:pokesi+tr13,248 

s?71B8 pokesi+t11,17:foro=-1to2ßß:nexto:poke 
sitil,ß:return 

S3I2B ;: rem #** sonderzeichen #*#* 
37380 : 

3748 ad=828 

3958 readop$:gosub3S79rB: pokead,op:ad=ad+i 
:ifad=876then4a3a 

3768 gotu3rSßd 

3778 dataaS,14,48,35,15,48,20,f7,67,35,@ 
1,48,35,15,c7,d90,728,07,c7,eB,b93,23,39,31 
539788 data2c,a7,34,78,85,21,32,09,b1,14,a 
8,68,85,21,598,68,85,159,68,85,14,4c ,a2,b3 


rem #* ton #** 
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998 ol$=left#tt(topfr,1):oxt=rightftopfF,!) 
4800 ol=valtol#):ifasctolf) >d4thenol=asc 
(ol#)-55 

4810 ox=val(oxfF) :ifasc(tor$) ö4thenox=asc 
(or$) -535 

op=ol*#1l1ö+ox:return 
poke785,82Band255:poke7865,>3 
m=4076:a=15#m:e=14*m 
fori=satoe-i:pokei+tm,usr (i):ınexti 
pokea+t24,24:poke56578,148:poke548,1 


printchr#(14) 
b=(peek (a+t24) and?) #1224 


z=e+b+107#*8: gosub43B2Q 
z=ze+b+115#8: goasub4222 
z=se+tb+115*8:gosub4AI3RU 
z=e+b+114*8: gosub4302 
z=ze+b+77*8: gqaosub4IQN 
z=e+b+1197*8:gosub4I3RU 
z=e+tb+120*8: aosub4IBR 
z=e+b+78*8: gosub4:22 
z=e+b+121*#8:a0osub4JI02 
z=e+tb+111*8:aosub432 
z=etb+1BB*8: gosub4I0H 
z=e+tb+75*8: goasub4IAR 
z=e+tb+230*8: aosub4A3RY 
z=se+thb+28*8: 
z=e+b+112*8:aosub4308 
z=ze+b+119*8: oaosub422Q 
z=e+b+108*#8: aosub4A4IR2Q 
=e+b+125*#8: aosub43DQ 
e+b+1B1*8:gosub43DU 
e+tb+116*8: gosub435H2 


2= 
z=e+th+974*8: gosub432Q: return 
fori=ztoz+t7:reada:pokei „a:nexti:ret 


data®,0,1?26,219,2723,216,126,2 
data48,24,60,6,62,1072,672,0 
data1l?,24,60,6,62,1072,672,8 
data?24,107?,640,6,6?,10?,6?2,8 
data48,24,60,102,126,96,60,0 
data1?2,24,60,102,126,96,60,0 
data?4,107,62,102,126,96,60,2 
data?4,10?,0,102,107?,1027,62,8 
data?4,107,0,56,24,24,60,0 


4420 
44180 
4420 
44.30 
4442 
4450 
4460 
4470 
4490 
44970 
4500 
4510 
bar 5 
4550 
4540 
4558 
4560 
4570 


Lernfıiler 


data?4,102,640,107?,102,1@07,40,0 
data1l2?,0,40,107,126,96,60,0 
dataA,108,0,56,24,24,60,0 
dataß,@,60,96,96,60,.24,48 
data4sQ,107,102,1?4,182,10?,124,96 
datald?,0,60,107,120?,187,40,0 
datal9?,60,107,19?,1907?,1072,60,0 
data1l®2,0,60,6,62,122,62,0 
datal9?,40,1072,1?6,12@7?,1@02,1072,0 
datald2,0,0,102,102,107,62,0 
datal@?,0,107,127,107,107,40,0 
data48,24,10?,12?,127,1072,4?,0 


rem ** aenderung eingeben *# 


ant="":z=Q:aef(z)="":print"”?"ıcl%; 
getae#F(z):ifaeft(z)=""thend4S5ö6d 
ifaet(z)=chr#(1M)oraet(z})=chr#+(197)o 


raeFiz)=chr# (297) thenae#(zı="" 


4580 


ifae$(z)=chr#$(145) orae#t(z)=chr#(147 


»thenaeF(z)="" 


4578 ifaet(tz)=chr#(157)thenaettz)="" 
40a ifaet(z)=chr#+ (ZO)thenze=peek (Z14):n 
okeZz11.2B:pokeZl4.ze 

as1B ifaettz)=chr#$ (28) thenprintlef;:poke 


211,B:poke214,ze:goto435% 


4620 
46:0 
4640 
n 

4550 
tete] 
4678 
4680 
4670 
46975 
4700 
4710 
4720 
47530 
4740 
4750 


ıfz -Z28thengosub3888 
ifzraSthenae#t(z)=chr#+{t17) 
ifsae*f(z)=chr#(1Dthenprint" ":retur 
an$t=ant+taeft(z) 
printae$(z);:z=z+tl:print"?"scl&; 
gotoAsag 


. rem ** fehlerkanal lesen ##% 


input#l1S,en,ent , et,es 

ifen=dthen return 
printcc$ıcd®tıcdFıceftscet:ceft;rof: 
print"Disketten-Fehler'"srf# 
printensemfseties 

close? :poke198, B:wait198,1: g0to340 
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Anhang 


Hinweise zur Anwendung der Diskette 


Die Diskette enthält mehr Programme als das Buch. Zusätz- 
lich wurde der Datensatz einiger Programme erweitert und 
deren Qualität gesteigert. Die Diskette erhalten Sie in 
Ihrem Fachgeschäft oder direkt bei mvg —- moderne verlags- 
gesellschaft mbh. 


(ISBN 3-478-97270-2 Preis: DM 58.-) 


#“#* FROGRAMMDISKETTE #””.> 


NEUE LERNPROGRAMME 


Für Commodore äs471283 


Die Frogramme i bis B auf der Diskette werden mit 
LOAD "Programmname *,8 (RETURN) 


geladen und mit RUN (RETURN) gestartet. Die Dateien 8A-BF 
können vom Frogramm 8 GROSSER LERNFILER geladen werden. 


Lädt man zuerst das C-64 WEDGE von der DEMODISKETTE C=64, 
so genügt folgende Eingabe: 


tTProgrammname 


In beiden Fällen kann man statt des gesamten PFrogrammna- 
mens die Zahl und den * eingeben. 


Beispiel: Programm 
7 LERNFILER 
Laden und Starten: 
t7* (RETURN) 
Die Programme 5 und 7 arbeiten mit Sonderzeichen. Laden 
Sie nach einem dieser Programme ein weiteres, so schalten 


Sie den Computer vorher kurz aus. Beim Programm SINUS UND 
KOSINUS ist immer zuerst Frogramm 2A* zu laden. 
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Hinweise zur Anwendung der Diskette 


Diskname:”MVG NEUE LERNPRG* 64 2A Blöcke 
1 MATHEMATIK-TRAiner 32 
2A SINUS UND KOSinus 7 
2B SINUS UND KOSinus 31 
3 DEUTSCHE LITERatur 47 
4 DIE STEIGERUNG im Englischen 43 
5 PHYSIK-TRAINER 27 
& GRUNDLAGEN DER Buchfuehrung 34 
7 LERNFILER 34 
8 GROSSER LERNFIler 131 
8A RECHTSCHREIBUng 18 
8B AVOIR/ETRE (Frz.) 13 
SC FRAESENS/FERFekt (ital.) 12 
8D QUIZ 7 
SE BIOGRAFIEN 9 
BF GESCHICHTE & 


Die FProgrammnummer ist Bestandteil des Frogrammnamens! 
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Künstliche Intelligenz in BASIC 
Arbeitsbuch für Heimcomputer (ISBN 3-478-09310-4) DM 29,80 
von Mike James 


Künstliche Intelligenz ist auch auf dem Heimcomputer programmierbar! Die 
BASIC-Listings in diesem Buch demonstrieren es: Das Prinzip der Künstlichen In- 
telligenz ist nicht nur den ‚‚großen‘‘ Rechnern vorbehalten. 


BASIC-Computer Programme 

— Mathematik für Schule, Wissenschaft und Technik (ISBN 3-478-09255-7) 
— Physik für Schule, Wissenschaft und Technik (ISBN 3-478-09260-4) 
von Charles Sternberg, je DM 29,80 


Diese beiden Bücher sind Sammlungen zahlreicher fachspezifischer Programme, 
die beim Lösen mathematischer bzw. physikalischer Aufgaben ständig vorkom- 
men. Routine-Berechnungen müssen nicht zeitraubend sein: Diese Listings in all- 
gemeinem BASIC ermöglichen es, sich von vornherein auf die eigentliche Pro- 
blemstellung zu konzentrieren und effektiver zu arbeiten. 


Computer-Lösungen für Schule, Studium und Alltag 


Ein mathematisches Arbeitsbuch mit Herleitungen 
Beispiele und Listings für den 


— Commodore 64/128 (ISBN 3-478-09210-8) 
— ZX Spectrum/Plus (ISBN 3-478-09220-5) 
von Rainer und Patrick Gaitzsch, je DM 29,80 


15 Problemstellungen zum Mathematikunterricht der Kollegstufe werden ausführ- 
lich mit Abänderungen, Verbesserungen einschließlich endgültigem Listing kom- 
mentiert. Die Übertragung der mathematischen Fragestellung auf den Alltag 
macht das Üben und Lernen besonders kurzweilig. 


Computer-Lösungen für Schule und Studium — Band Il 


Ein mathematisches Arbeitsbuch mit Herleitungen 
Beispiele und Listings für den 


— Commodore 64/128 (ISBN 3-478-09280-9) 
— IBM (und kompatible Modelle) (ISBN 3-478-09290-6) 
von Rainer und Patrick Gaitzsch, je DM 29,80 


Die Programme dieses Buches entsprechen dem Mathematik- und Physikunter- 
richt der Grund- und Leistungskurse. Sie eignen sich zur unmittelbaren Anwen- 
dung im Informatik-Unterricht. Die aktuelle Problemstellung und Simulationen 
machen das frühere ‚Pauken‘ zur spannenden Unterhaltung. 


Ei Avenlae 


Neue Lernprogramme = neue Perspektiven 
für das Lernen mit dem Computer 


Die „neuen Lernprogramme“ sind eine Auswahl neuer: grundlegender 
Übungsprogramme für das computergestützte Lernen. Anhand konkreter 
Aufgaben aus dem Unterricht demonstrieren sie, wie vielfältig die Anwen- 
dungsmöglichkeiten des Computers beim Lernen sein können. 


Die „neuen Lernprogramme“ erleichtern es dem Schüler, 
— die Winkelfunktionen zu verstehen und anzuwenden, 
- physikalische Berechnungen, an Kondensatorschaltungen und 
Spulen, vorzunehmen, | 
 — sich die Grundkenntnisse der deutschen Literatur anzueignen, 
— die Steigerung im Englischen zu beherrschen, | 
— die Grundlagen der Buchführung zu trainieren, 
- sich Fakten einzuprägen. 


Das Programm „Lernfiler“ zeichnet sich durch seine Vielseitigkeit beson- 
ders aus: Es eignet sich für alle Lernstoffe nach dem Frage- und Antwort- 
prinzip und ist übertragbar auf alle Fächer, zum Beispiel Biologie, Erdkunde, 
Geschichte, Latein. 


Das „Programm-Telegramm“ beschreibt die einzelnen Programme nach 
Anwendungsziel und ihren speziellen Möglichkeiten. Programm-Ablauf, 
Lernstoffeingabe, Variations- und Erweiterungsmöglichkeiten werden aus- 
führlich kommentiert. Auf programmiertechnische Vor- und Nachteile, 
Besonderheiten im Listing und auf Steuerzeichen wird extra verwiesen. 


Die ausführlich kommentierten „neuen Lernprogramme“ bieten jedem die 
Möglichkeit, den Lernstoff nach verschiedenen Schwierigkeitsgraden ab- 
zustimmen, seine programmiertechnische Raffinesse zu schulen. 


Die Computer-Bücher der Reihe „mvg-computer-lernen“ folgen einem 
klaren pädagogischen Konzept: Die Programme sind so kommentiert, 
daß der Computer-Anwender Aufbau und Ablauf nachvollziehen und 
erlernen kann. Die Programme für computergestütztes Lernen sind mit 
Lernstoff erweiterbar und je nach Schwierigkeitsgrad ausbaufähig. 


Die „neuen Lernprogramme“ sind auch auf Diskette erhältlich 
(ISBN 3-478-99270-2). 


. ISBN 3-478-09270-1 


ISBN 3-478-09270-1 


